Bonjour,
Alors voilà,
J'ai un userform avec une textbox.
Je mets "test" dans la textbox et quand je clique sur un bouton la valeur se recopie dans la cellule "A1".
Maintenant en ouvrant le même userform et en faisant la même manip, j'aimerais que la valeur se recopie dans la cellule "A2" puis en reouvrant le userform et en faisant la manip j'aimerais que la valeur se recopie dans la cellule "A3" etc
J'ai tenté ça:
Mais ça me copie les 20 cases en dessous de B9...
Avez-vous une solution?
Merci
Alors voilà,
J'ai un userform avec une textbox.
Je mets "test" dans la textbox et quand je clique sur un bouton la valeur se recopie dans la cellule "A1".
Maintenant en ouvrant le même userform et en faisant la même manip, j'aimerais que la valeur se recopie dans la cellule "A2" puis en reouvrant le userform et en faisant la manip j'aimerais que la valeur se recopie dans la cellule "A3" etc
J'ai tenté ça:
Code:
Private Sub CommandButton1_Click()
Dim j As Long
Dim i As Long
j = ActiveCell.Value
TextBox_Afficher_Numéro = j
For i = 1 To 20
If Sheets("Tâche N°" & j).Range("B" & i + 9) <> "" Then Sheets("Tâche N°" & j).Range("B" & i + 10) = TextBox1.Value
Next i
End Sub
Mais ça me copie les 20 cases en dessous de B9...
Avez-vous une solution?
Merci