Ecrire une valeur dans une cellule en fonction d'une autre
Résolu
Titi32600
Messages postés
92
Statut
Membre
-
Titi32600 Messages postés 92 Statut Membre -
Titi32600 Messages postés 92 Statut Membre -
Bonjour,
Je souhaiterais dans mon tableau que, si la cellule C =1, la cellule Y soit égal à la cellule H.
et ceux pour toutes les valeurs depuis la cellule A7 jusqu’à la cellule 47
exemple :
C7=1 Y7 = H7
C8=1 Y8 = H8
....... jusqu'à A47
si C7=0 ou rien alors Y7 = 0
j'ai mis en place un code VBA, dans le module 2, mais j'ai des problèmes pour qu'il fonctionne.
------------------------------------------------------------------------
Sub Macro2()
Dim i As Integer
i = 2
Do While Cells(i, 1).Value <> ""
If Range("C" & i) = "1" Then Range("Y" & i) = Range("H" & i)
i = i + 1
Loop
End Sub
----------------------------------------------------------------------------------------
Je souhaiterais dans mon tableau que, si la cellule C =1, la cellule Y soit égal à la cellule H.
et ceux pour toutes les valeurs depuis la cellule A7 jusqu’à la cellule 47
exemple :
C7=1 Y7 = H7
C8=1 Y8 = H8
....... jusqu'à A47
si C7=0 ou rien alors Y7 = 0
j'ai mis en place un code VBA, dans le module 2, mais j'ai des problèmes pour qu'il fonctionne.
------------------------------------------------------------------------
Sub Macro2()
Dim i As Integer
i = 2
Do While Cells(i, 1).Value <> ""
If Range("C" & i) = "1" Then Range("Y" & i) = Range("H" & i)
i = i + 1
Loop
End Sub
----------------------------------------------------------------------------------------
