Aide vba range
Fermé
titou78
-
25 janv. 2009 à 10:55
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 25 janv. 2009 à 14:22
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 25 janv. 2009 à 14:22
1 réponse
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
25 janv. 2009 à 14:22
25 janv. 2009 à 14:22
Bonjour,
Une façon comme une autre...
A+
Une façon comme une autre...
Sub Entrer() Static Col As Integer Dim V If Col = 0 Then Col = 3 Reco: V = InputBox("Entrez votre donnée (tapez AA pour terminer", "Saisie") If V = "AA" Then Exit Sub Sheets("Feuil1").Cells(3, Col) = V Col = Col + 1 GoTo Reco End Sub Sub Vider() Rows(3).ClearContents End Sub
A+