Traduction d'une ligne de code

[Marina01]

Bonjour,

Pouvez-vous me donner une confirmation de cette traduction:

Private Sub ComboBox4_Change()

[COLOR="red"]Ne s'opère qu'au changement d'option en tenant compte des differentes listFillrange.[/COLOR]
    
    On Error Resume Next
[COLOR="Red"]passe a la suivante en cas d'erreur[/COLOR]
    
    Application.ScreenUpdating = False
[COLOR="red"]Mise a jour de l'ecran desactivée[/COLOR]
    
    If ComboBox4 <> "" Then
Si la combo4 est...je sais pas

        Image = rep4 & ComboBox4.Value & ".jpg"
[COLOR="red"]affiche l image jpg[/COLOR]

        ActiveSheet.Shapes("Photo4").Fill.UserPicture Image 'Cadre 4
[COLOR="red"]et là j'ai compris mais je ne trouve pas les mots[/COLOR]
    End If
    
    [H21].Select

End Sub

N'hésitez à reformuler les phrases pour que ce soit plus simple à dire.

Merci

 

[Marie30]

Re : Traduction d'une ligne de code

If ComboBox4 <> "" Then

Si la combobox est différente de rien alors

 

[pierrejean]

Re : Traduction d'une ligne de code

bonjour marina

Private Sub ComboBox4_Change()
'des que la valeur de Combobox4 change
    
    On Error Resume Next
' a partir de la : si une erreur intervient la macro continue en passant a la ligne '
' suivante  (absolument déconseillé en phase de mise au point)  
    Application.ScreenUpdating = False
[COLOR=red]'Mise a jour de l'ecran desactivée[/COLOR]
    
    If ComboBox4 <> "" Then
' Si la combo4 n'est pas vide
        Image = rep4 & ComboBox4.Value & ".jpg"
[COLOR=#ff0000]' definit le nom de l'image comme la concatenation de rep4 (je suppose le nom du 'repertoire)[/COLOR]
[COLOR=#ff0000]'ici je conseille : [/COLOR]
[COLOR=#ff0000]'msgbox(Image) ' qui permettra de savoir si le chemin complet est correct [/COLOR]
        ActiveSheet.Shapes("Photo4").Fill.UserPicture Image 'Cadre 4
'Importe l'image dans l'objet nommé Photo4
    End If
    
    [H21].Select

End Sub