Fenêtre de saisie affectant des cellules
Résolu/Fermé
A voir également:
- Fenêtre de saisie affectant des cellules
- Excel additionner des cellules - Guide
- Verrouiller des cellules excel - Guide
- Raccourci agrandir fenetre - Guide
- Figer des cellules excel - Guide
- Fenetre privée - Guide
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
Modifié par pijaku le 12/05/2011 à 14:02
Modifié par pijaku le 12/05/2011 à 14:02
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.
Tu dis...
Cordialement,
Franck P
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
12 mai 2011 à 14:36
M@x