Fenêtre de saisie affectant des cellules

Résolu
M@x -  
 M@x -
Bonjour à tous. Tout d'abord il faut savoir que je commence tout doucement à programmer avec vba. Donc voici ma petite problématique :

J'aimerai que lorsque je clique sur un CommandButton, une fenêtre apparaisse et me demande quelles valeurs à affecter à B2, ensuite C2, ensuite D2....Mais j'aimerai que lorsque je clique sur ce bouton, qu'il sélectionne la première cellule vide dans la colonne B.

J'espère que vous comprenez ce que je vous expose. Merci d'avance !

M@x



A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,
Ce code affiche une inputbox tant que la cellule de dessus ne sera pas vide.
Donc en fait, peu importe le nombre de colonnes à remplir. Que tu ais de B à D ou de B à Z, la macro continue tant que...
De plus, elle n'accepte pas la "non saisie" d'une valeur. 
Private Sub CommandButton1_Click() 
Dim DernLig As Integer, Col As Integer 
Dim result As String 
Dim Cel As Range 

DernLig = Cells(65536, 2).End(xlUp).Row + 1 
Col = 2 
Set Cel = Cells(DernLig, Col) 
Do While Cel.Offset(-1, 0) <> "" 
    result = InputBox("Saisir la valeur de la cellule : " & Replace(Cel.Address, "$", "")) 
    If result <> "" Then 
        Cells(DernLig, Col) = result 
    Else 
        Col = Col - 1 
    End If 
    Col = Col + 1 
    Set Cel = Cells(DernLig, Col) 
Loop 
Set Cel = Nothing 
End Sub

Tu dis...
Cordialement,
Franck P
1
M@x
 
Merci bien de ton aide !

M@x
0