fenêtre de saisie affectant des cellules Résolu

Question

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 



Configuration: Windows Vista / Internet Explorer 8.0

pijaku · Answer

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

Fenêtre de saisie affectant des cellules

1 réponse

Discussions similaires

Newsletters