Ajouter en fonction de ?

[DJ FA]

Bonsoir, je souhaiterais que quand j'ai une valeur dans une cellule dans la colonne A que le mot "ALLO" soit inscris dans les cellules en colonne F (sur la même ligne en fait) et à savoir que je peux avoir plus de 2000 lignes et variable, merci à vous.

Avec une macro en module.

 

[Modeste]

Re : Ajouter en fonction de ?

Bonjour DJFA,

Sous réserve que j'aie bien compris, peut-être

=SI(A1<>"";"Allo";"")

 

[DJ FA]

Re : Ajouter en fonction de ?

Oui mais je souhaite une macro.

 

[mapomme]

Re : Ajouter en fonction de ?

Bonjour DJFA,

Essayez cette macro:

Sub Allo()
Dim rg As Range, V, i
  With Sheets("Feuil1")
    Set rg = .Range("A1:A" & .Cells(.Rows.Count, "a").End(xlUp).Row)
    V = rg.Value
    For i = 1 To UBound(V)
      If V(i, 1) <> "" Then V(i, 1) = "ALLO"
    Next i
    .Range("F1").Resize(UBound(V), 1).Value = V
  End With
End Sub

Edit: ôté la ligne parasite: rg.select

 

[DJ FA]

Re : Ajouter en fonction de ?

Excellent, merci beaucoup.