Selectionner une boucle Résolu

Question

Bonjour à vous tous,

Je suis débutant sur VBA et j'ai un petit souci de code. Voilà j’ai créé des listeBox , ComboBox,TextBox  sur un UserForm pour saisir des données, ces données sont ensuite rangées dans un tableau sur une feuille Excel via un bouton de commande (bouton9). Mes lignes de code sont les suivantes :

Private Sub CommandButton9_Click()
Sheets("Feuil2").Cells(6, 1) = TextBox2
Sheets("Feuil2").Cells(6, 5) = ComboBox1 
etc.(y'en a 16^^)

Donc pas de problème les informations s’inscrivent bien dans ces cellules, mais ce que je souhaite maintenant c’est quand un utilisateur lambda vient ressaisir et  réactiver le bouton 9 ses données se réinscrivent sans effacer les précédentes. A force de recherche j’ai trouvé une boucle qui est la suivante:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range ("A6").Select
Do While IsEmpty(ActiveCell)= False
Selection.Offset(1,0)Select
Loop

Je l'ai mise sur la feuille en question et effectivement elle marche, mais seulement si j’écris directement sur la feuille du classeur elle même et non automatiquement après avoir cliqué sur le bouton 9.
Là ou je veux en venir (et il est temps^^),  quel code me permettrait de relier les deux (bouton9-boucle) ou même à la rigueur désigner la cellule active (au lieu de .Cells(6,1)  )  pour toutes mes lignes.

MERCI D'AVANCE

michel_m · Answer

bonjour,

pour trouver la dernière ligne utilisée d'une colonne +1 (+1:donc, la vide)

dim lig as long

lig=range("A65536").end(xlup).row +1
Sheets("Feuil2").Cells(lig, 1) = TextBox2

imis · Answer

bonjour Michel_m,

   Merci de ta réponce je vais essayer ça tout de suite....

imis · Answer

Bonjour, 

  Bah me revoilà, j'ai effectué la dermache suivante:

Private Sub CommandButton9_Click() 

dim lig as long 
lig = Range("A65536").End(xlUp).Row + 1
Sheets("Feuil2").Cells(lig, 1) = TextBox2
Sheets("Feuil2").Cells(lig, 2) = TextBox1
Sheets("Feuil2").Cells(lig, 3) = TextBox3
Sheets("Feuil2").Cells(lig, 4) = TextBox4
Sheets("Feuil2").Cells(lig, 5) = ComboBox1
Sheets("Feuil2").Cells(lig, 6) = ComboBox2
Sheets("Feuil2").Cells(lig, 7) = ComboBox3
Sheets("Feuil2").Cells(lig, 8) = ComboBox4
Sheets("Feuil2").Cells(lig, 9) = TextBox5
Sheets("Feuil2").Cells(lig, 10) = TextBox6
Sheets("Feuil2").Cells(lig, 11) = TextBox7
Sheets("Feuil2").Cells(lig, 12) = TextBox8
Sheets("Feuil2").Cells(lig, 13).NumberFormat = TextBox9
Sheets("Feuil2").Cells(lig, 13).NumberFormat = "# ###0,00€"
Sheets("Feuil2").Cells(lig, 14) = TextBox10
Sheets("Feuil2").Cells(lig, 15) = TextBox11
Sheets("Feuil2").Cells(lig, 16) = ComboBox7
Sheets("Feuil2").Cells(lig, 18) = ComboBox6

End Sub

et maintenant rien ne s'inscrit dans mon tableau :( ,  je suis vraiment débutant donc dsl d'être aussi nul j'essaye d'assimiler les codes ^^ mais j'ai du mal (la preuve)

michel_m · Answer

Curieux, je viens de vérifier
XL<2007
lig = Range("A65536").End(xlUp).Row + 1
fonctionne

sélectionne lig et demande un espion (débogage-ajouter un espion)
la m^chose pour textbox2

mets un point d'arret au niveau de lig (clique dans le bandeau vertical à gauche)

lance ton usf mets des valeurs et appuie sur ton bouton

la macro s'arr^te sur sur ... la ligne du point d'arrêt
continue en pas à pas (F8)
et regarde la valeur de lig puis de textbox2


autre chose pour allèger ton code:

With Sheets("Feuil2")
.Cells(lig, 1) = TextBox2
.Cells(lig, 2) = TextBox1 
....
End With

tu me tiens au courant...

michel_m · Answer

Excuses, j'avais pas rafraichi...

imis · Answer

Bonjour,

J’ai crié trop hâtivement victoire car ce code en veux qu’à mes intitulés ^^ , et ça malgré toutes mes tentatives. Mon tableau commence à la cellule A6 et pourtant il me rempli dès la cellule A2 à savoir en plein titre de mon tableau.
Je vous saurais gré de bien vouloir m’aider car je suis vraiment perdu et le pire c’est que je sais que le code de michel_m marche puisqu’il est posté sur plusieurs codes dans le forum et de surcroit marche sur mon tableau.

Ma question est donc la suivante:
    -comment lui (code) dire de commencer à la cellule A6 et ensuite qu’il enchaîne sur le code de michel_m afin qu'il puisse remplir à chaque fois les champs vides. 

Merci d’avance

michel_m · Answer

lig = Range("A65536").End(xlUp).Row 

if lig<6 then
lig=6
else
lig=lig+1
end if

en saisissant un espace ou un point ou... en A5, tu pourrais garder
lig = Range("A65536").End(xlUp).Row + 1 
sans le test

a toi de voir ( le test est + prudent car à l'abri d'une saisie malencontreuse en A6)

michel_m · Answer

je viens d'essayer cette macro test et ca marche

Sub fff()
Dim lig As Long
lig = Range("A65536").End(xlUp).Row
If lig < 6 Then
lig = 6
Else
lig = lig + 1
End If
With Sheets(1)
.Cells(lig, 1) = "toto"
End With
End Sub

Selectionner une boucle

8 réponses

Discussions similaires

Newsletters