Microsoft 365 Copier le contenu d'une cellule en fonction de la valeur d'une autre cellule

[ShrekL]

Bonjour,

Voir fichier joint.

J'ai besoin de créer une commande automatique qui copie les cellules de la colonne J lorsque la cellule de la colonne B=N/A et qui colle et écrase le résultat dans la colonne F sur la ligne correspondante.

Par exemple, la commande trouvera les cellules J7 et J11 et copiera le résultat et et le collera sur les cellules F7 et F11.

Les cellules F7 et F11 afficheront alors respectivement la valeur 3500 et 4500 et les valeurs des colonnes G et H redeviennent 0 (cette dernière partie, je l'ai déjà).

Merci de votre aide et salutations,

 

[sylvanu]

Bonsoir Shrekl,
Un essai en PJ avec une macro simple.

Sub Remplace()
NbLig = Range("C65500").End(xlUp).Row
For i = 2 To NbLig
    If Range("B" & i) = "N/A" Then
        Range("E" & i) = Range("I" & i)
        Range("F" & i) = Range("J" & i)
        Range("G" & i) = 0
        Range("H" & i) = 0
    End If
Next i
End Sub

si le nombre de lignes a traiter est grand et le temps de traitement long alors il faut recourir à un array.
Faites signe si c'est le cas.

 

[_Thierry]

Bonsoir @ShrekL , Re Sylvanu

Une autre approche VBA aussi

@+Thierry

 

[ShrekL]

Vous êtes incroyable. Merciiiiiii!!!!