Ajouter en fonction de ?

Modeste

XLDnaute Barbatruc

• 19 Avril 2013

• #2

Re : Ajouter en fonction de ?

Bonjour DJFA,

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

Code:

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

 

Vote positif 0 Vote négatif

D

DJ FA

XLDnaute Occasionnel

• 19 Avril 2013

• #3

Re : Ajouter en fonction de ?

Oui mais je souhaite une macro.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Avril 2013

• #4

Re : Ajouter en fonction de ?

Bonjour DJFA,

Essayez cette macro:

VB:

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

 

Dernière édition: 19 Avril 2013

Vote positif 0 Vote négatif

D

DJ FA

XLDnaute Occasionnel

• 19 Avril 2013

• #5

Re : Ajouter en fonction de ?

Excellent, merci beaucoup.😛

 

Vote positif 0 Vote négatif