pb instruction If,Then

pb instruction If,Then - VB/VBA/VBS - Programmation

Marsh Posté le 24-05-2006 à 10:32:04    

bonjour,
j'ai fais une macro Excel qui permais d'ajouter une image en commentaire mais avant d'ajouter cette image j'ai 3 instruction If
ces instruction sont dans une boucle for
en fait la première instruction est de verifié si il y a un commentaire. si il y en a un je souhaiterais que ca passe directement a une autre cellule sans passer par les autres instruction if.pareil pour la 2ème condition if.
 
petit partie de mon code  
For Each C In Range("E2:E" & Range("E65536" ).End(xlUp).Row)
Repertoire = "Photos\" & Trim(C.Value) & ".jpg"
If C.Offset(0, -1).Comment <> True Then
If Not C = "" Then
If Dir(Repertoire) <> "" Then
With C.Offset(0, -1)
.AddComment
.Comment.Shape.Fill.UserPicture Repertoire
.Comment.Visible = False 'Masque le commentaire
End With
FichierImage = ActiveWorkbook.Path & "\Photos\"
With C.Offset(0, -1).Comment.Shape
.Width = Val(dimensionsImage(FichierImage, Trim(C.Value) & ".jpg", 27))
.Height = Val(dimensionsImage(FichierImage, Trim(C.Value) & ".jpg", 28))
        End With
End If
End If
End If
Next
 
comment puije faire pour que si il y a deja un commentaire sur un cellule il passe directement a l'autre ?
merci bcp

Reply

Marsh Posté le 24-05-2006 à 10:32:04   

Reply

Marsh Posté le 24-05-2006 à 11:13:00    

j'ai oublié de préciser que je ne suis pas sur de la syntaxe de la première instruction if  :)
pour la deuxième instruction ca marche si il n'y a pas de texte ds la cellule il passe a la cellule d'après

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed