J'ai besoin d'aide pour un code car je n'arrive pas à trouver la solution sur les autres discussions.
Je m'explique, je dispose d'un grand tableau excel dans lequel j'ajoute des lignes quotidiennement en dessous de la 5ème ligne. Pour chaque ligne je dois vérifier la présence d'un fichier sur une DB en fonction d'un numéro de BT, j'ai donc créer une macro qui me permet de copier le N°BT afin de la coller directement dans ma DB. Après cela un user form apparait avec les différentes réponses à remplir et insère ces réponses (FP dans le fichier Excel) dans la cellule se situant à coté (donc même ligne). Pour chaque ligne j'appuie sur un bouton pour recopier le numéro, écrire la réponse dans la bonne colonne et ensuite remonter d'une ligne.
Le problème est que j'aimerai créer une boucle qui part de ma cellule active pour aller jusqu'à la ligne 5 (la première ligne de mon tableau) mais je n'y arrive pas, je dois avoir un problème au niveau de mes variables. Avez vous une solution ?
De plus j'aimerai que le numéro de BT soit affiché et actualisé à chaque apparition du UserForm, par exemple dans une phrase comme "donnez la réponse pour le BT n° …..". Est-ce possible ?
VB:
Sub Test()
Dim i, Bas
Bas = ActiveCell.Row
For i = Bas To 6
Selection.Copy
ActiveCell.Offset(0, 5).Select
UserForm1.Show
ActiveCell.Offset(-1, -5).Select
Next
End Sub
Ce n'est pas le propos de ma question, cela fonctionne comme ça et ne dois pas être changé, enlevez la partie UserForm si vous préférez.
J'aimerais simplement savoir comment faire une boucle for qui commence au niveau de la cellule active pour remonter jusqu'à la ligne 5 et s'il est possible de rajouter une variable dans la phrase Insérer dans le UserForm
Sub test()
If ActiveCell.Row > 5 Then
For L = ActiveCell.Row To 5 Step -1
With UserForm1
.Label1.WordWrap = False
.Label1.AutoSize = True
.Label1.Caption = " Quelle est la CARAC demandée pour Bt=" & Cells(L, "C") & " ?"
.Show
End With
Next
End If
End Sub