Bonjour le forum,
J'ai récupéré un bout de VBA sur le forum et je voudrais me l'adapter pour mon exemple.
Etant pas du tout performant en VBA je me tourne vers vous.
Comment faire une boucle avec ça ? :
Je sais... c'est moche
En vous remerciant,
Cordialement.
J'ai récupéré un bout de VBA sur le forum et je voudrais me l'adapter pour mon exemple.
Etant pas du tout performant en VBA je me tourne vers vous.
Comment faire une boucle avec ça ? :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("test").Range("A4").Value = "" Then
Else
Sheets("test").Range("B4").Formula = "=C4"
End If
If Sheets("test").Range("A5").Value = "" Then
Else
Sheets("test").Range("B5").Formula = "=C5"
End If
If Sheets("test").Range("A6").Value = "" Then
Else
Sheets("test").Range("B6").Formula = "=C6"
End If
If Sheets("test").Range("A7").Value = "" Then
Else
Sheets("test").Range("B7").Formula = "=C7"
End If
If Sheets("test").Range("A8").Value = "" Then
Else
Sheets("test").Range("B8").Formula = "=C8"
End If
If Sheets("test").Range("A9").Value = "" Then
Else
Sheets("test").Range("B9").Formula = "=C9"
End If
End Sub
Je sais... c'est moche
En vous remerciant,
Cordialement.