XL 2010 aide sur boutton valider

sousou

XLDnaute Barbatruc

• 18 Janvier 2018

• #2

Bonjour
Je pense que c'est ce que tu cherches.
Private Sub CommandButton1_Click()
For Each i In Selection
i.Value = "PTI"
Next
End Sub

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 18 Janvier 2018

• #3

Bonjour sousou

merci oui tous bon

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Janvier 2018

• #4

Bonsoir le fil, le forum

En me basant sur l'exemple de sousou
Est-ce que cela suffit?

VB:

Private Sub CommandButton1_Click()
Selection.Value = "PTI"
End Sub

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 19 Janvier 2018

• #5

Bonjour Staple.
He oui! C'est ça les habitudes.
Admettons que la boucle for each peut inspirer tinet pour un peu plus compliqué😉

 

Vote positif 0 Vote négatif