Bonjour, j'aimerai pouvoir dupliquer un code d'une cellule à une colonne entiere, je l'ai fait pour 7 cellules, mais je ne me vois pas faire la colonne entiere, a t'il une solution?
Merci
Sub dern_connexion()
If Feuil5.Range("P4").Value = Feuil5.Range("A7").Value Then
Feuil5.Range("N7").Value = Feuil5.Range("Q4").Value
Else
End If
If Feuil5.Range("P4").Value = Feuil5.Range("A8").Value Then
Feuil5.Range("N8").Value = Feuil5.Range("Q4").Value
Else
End If
If Feuil5.Range("P4").Value = Feuil5.Range("A9").Value Then
Feuil5.Range("N9").Value = Feuil5.Range("Q4").Value
Else
End If
If Feuil5.Range("P4").Value = Feuil5.Range("A10").Value Then
Feuil5.Range("N10").Value = Feuil5.Range("Q4").Value
Else
End If
If Feuil5.Range("P4").Value = Feuil5.Range("A11").Value Then
Feuil5.Range("N11").Value = Feuil5.Range("Q4").Value
Else
End If
If Feuil5.Range("P4").Value = Feuil5.Range("A12").Value Then
Feuil5.Range("N12").Value = Feuil5.Range("Q4").Value
Else
If Feuil5.Range("P4").Value = Feuil5.Range("A13").Value Then
Feuil5.Range("N13").Value = Feuil5.Range("Q4").Value
Else
End If
End If
End Sub