Microsoft 365 Insertion fonction If dans un module

[Huggy22]

Bonjour à tous.

J'ai créé une macro qui permet de copier les valeurs de certaines cellules dans une autre feuille :

Private Sub Copier_click()

Dim WsC As Worksheet
Dim DerLigC As Long, DerLigS As Long

Application.ScreenUpdating = False
Set WsC = Worksheets("Amalgame")
With Worksheets("Générateur BCI")
DerLigS = .Range("Fond").End(xlUp).Row
For i = 16 To DerLigS
DerLigC = WsC.Range("D" & Rows.Count).End(xlUp).Row + 1
WsC.Range("G" & DerLigC) = .Range("B3") 'N° bon de commande interne
WsC.Range("A" & DerLigC) = .Range("P2") 'Date du jour
WsC.Range("D" & DerLigC) = .Range("B5") ' Bâtiment
WsC.Range("H" & DerLigC) = Range("D5") 'Demandeur
WsC.Range("E" & DerLigC) = .Range("D3") 'Service
WsC.Range("F" & DerLigC) = .Range("D4") 'Etage
WsC.Range("B" & DerLigC) = .Range("A" & i) 'N° article
WsC.Range("C" & DerLigC) = .Range("C" & i) 'Quantité

Next i
End With
WsC.Activate
Set WsC = Nothing

End Sub

La macro fonctionne parfaitement mais j'aimerai pouvoir copier les données uniquement si la valeur de la cellule H4 est égale à OUI. J'ai pensé à insérer le code suivant :

If Range("H4").Value="OUI"
End If

J'ai testé mais cela ne fonctionne pas... Faut-il insérer le code à un endroit précis ?

Bien cordialement,

Huggy.

 

[cp4]

Bonjour,

If Range("H4").Value="OUI"

ça devrait fonctionner, juste préciser cellule H4 de quelle feuille.
Un petit fichier serait le bienvenu.

 

[Huggy22]

Bonjour,

ça devrait fonctionner, juste préciser cellule H4 de quelle feuille.
Un petit fichier serait le bienvenu.

Bonjour.

Oups, voici un fichier. Le problème apparait dans le module 5.

Merci d'avance !

Huggy.

 

[dysorthographie]

Bonjour,
Avec un petit then?
If then
Else
End If

 

[Huggy22]

Bonjour,
Avec un petit then?
If then
Else
End If

Bonjour.

Non, cela ne fonctionne pas (la ligne apparait en rouge dans le code...).

Bizarre...

 

[dysorthographie]

Normal je voulais juste préciser qu'il faut mettre un then après le if condition !

If .Range("H4").Value="OUI" then
' traitement
End If

 

[Huggy22]

Merci beaucoup !

Bonne fin de journée !