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
Bonjour,

je voudrais connaitre le code pour placer des données, inscrites dans une inputbox, dans une plage de cellule allant par exemple de C3 à E3. par exemple :
si le premier chiffre inscrit dans l'inputbox est 31 dans C3 je veux qu'il y soit inscrit 31
puis si le second chiffre inscrit est 51 alors dans D3 je veux qu'il y soit inscrit 51
etc.

Enfin je voudrais connaitre le code pour pouvoir supprimer toutes les données inscrites dans cette plage à la fin de mon application.

Je vous remercie d'avance en espérant avoir des réponses au plus vite.
Bon dimanche à tous =)

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
Bonjour,
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+
0