ajouter des mots à une liste sous vb excel

[invited4acd8f2]

Bonjour,

Alors j'ai un problème, je m'explique, en fait j'ai créer un useform avec une zone de texte et un bouton de commande. En fait, j'aimerai que chaque mot que j'entre s'ajoute les uns en dessous des autres sur excel( en A1 ... A2....)
Pour l'instant :

Private Sub CommandButton1_Click()
   Dim cpt as integer
   cpt = 1
   If Range("A1").Value = "" Then
    Range("A1").Value = Texte.Value
   Else
    Range("A1").Offset(cpt, 0).Value = Texte.Value
   End if
End Sub

Ceci ca ne marche pas, je pense que l'offset est nécessaire pour décaler la cellule. Je pense qu'il faut un For....

Merci
-----

[invite1445654e]

Bonjour,

Alors j'ai un problème, je m'explique, en fait j'ai créer un useform avec une zone de texte et un bouton de commande. En fait, j'aimerai que chaque mot que j'entre s'ajoute les uns en dessous des autres sur excel( en A1 ... A2....)
Pour l'instant :

Private Sub CommandButton1_Click()
   Dim cpt as integer
   cpt = 1
   If Range("A1").Value = "" Then
    Range("A1").Value = Texte.Value
   Else
    Range("A1").Offset(cpt, 0).Value = Texte.Value
   End if
End Sub

Ceci ca ne marche pas, je pense que l'offset est nécessaire pour décaler la cellule. Je pense qu'il faut un For....

Merci

pourquoi tu construit pas a chaque fois la valeur de la chaine que tu mets via Range
en gros tu as Range("A"+cpt) un truc de ce genre ...
et puis aussi je vois pas d'incrementation de ton cpt il est toujours a un ....

[invited4acd8f2]

Déjà merci de ta réponse,

Alors oui en effet j'ai oublié le cpt = cpt + 1 à la fin.
La j'arrive à ca:

Private Sub CommandButton1_Click()
   Dim cpt As Integer
   cpt = 1
   If Range("A" & cpt).Value = "" Then
    Range("A" & cpt).Value = Texte.Value
   Else
    Range("A" & cpt).Offset(1, 0).Value = Texte.Value
   End If
   cpt = cpt + 1
End Sub

En fait, ca ne marche que pour les deux premiers, le troisième mot que je tape prend la place du second. J'ai essayé de supprime l'offset mais même problème, je pense qu'il repart de A1 à chaque fois

[invite1445654e]

Déjà merci de ta réponse,

Alors oui en effet j'ai oublié le cpt = cpt + 1 à la fin.
La j'arrive à ca:

Private Sub CommandButton1_Click()
   Dim cpt As Integer
   cpt = 1
   If Range("A" & cpt).Value = "" Then
    Range("A" & cpt).Value = Texte.Value
   Else
    Range("A" & cpt).Offset(1, 0).Value = Texte.Value
   End If
   cpt = cpt + 1
End Sub

En fait, ca ne marche que pour les deux premiers, le troisième mot que je tape prend la place du second. J'ai essayé de supprime l'offset mais même problème, je pense qu'il repart de A1 à chaque fois

regarde ton code quand tu appuies sur ton bouton qu'est ce qu'il y a sur la premiere ligne tu mets cpt à 1
j'aurais fait comme code

Private Sub CommandButton1_Click()
   Dim cpt As Integer
  
   If Range("A" & cpt).Value = "" Then
     cpt = 1
    Range("A" & cpt).Value = Texte.Value
   Else
     cpt = cpt + 1
    Range("A" & cpt).Offset(1, 0).Value = Texte.Value
   End If
  
End Sub

[A voir en vidéo sur Futura]

[invite1445654e]

mais j'ai du mal avec ta logique
tu veux qu'a chaque clique de bouton
au fur et a mesure tu as a1 a2 a3 de renseigné
pourquoi tu declares pas ta variable en variable globale et que tu initialises à 0
et tu aurais qu'a faire
cpt=cpt+1
Range("A" & cpt).Value = Texte.Value
mais si tu veux que ton compteur soit une variable locale
tu peux tester si ta variable est initialisée ou pas pour tester la premiere fois

[invited4acd8f2]

Non en fait, j'ai créer un useform avec une zone de texte un et un bouton, donc en fait j'ai fait un bouton, quand je clic dessus, ca ouvre la boite de dialogue(le useform), et je voudrais que le texte que je rentre(dans la zone texte) se place successivement les uns en dessous des autres.
exemple je tape: chien , chien s'écrit en A2, je tape chat, chat s'écrit en A3 vu que A2 est rempli ...
la boite de dialogue sert à ajouter le texte .. je sais pas si c'est très clair.

[invite8666d089]

Le code suivant devrait fonctionner :

Private Sub CommandButton1_Click()
  Dim Compteur As Integer
  Dim Contenu As String
  
  Do
    Compteur = Compteur + 1
    Contenu = Range("A" & Trim(Str(Compteur)))
  Loop Until Contenu = ""
  Range("A" & Trim(Str(Compteur))) = TextBox1.Text
End Sub

[invited4acd8f2]

Merci, mais il n'y a aucun moyen pour le faire avec Range, Offset, (un for) ainsi qu'un compteur ? A la base je voulais le faire comme ca

[invite8666d089]

C'est étrange, parce que chez moi ça marche. Et même très bien avec Range. A condition, bien sûr que la TextBox ait le même nom.

[invited4acd8f2]

Oui pas de souci ton programme marche, mais je parlais de le faire qu'avec Range.value , le offset ( pour décaler la cellule), car remonte un peu dans le code je pense qu'on était pas loin.

[invited4acd8f2]

Private Sub CommandButton1_Click()
   Dim cpt As Integer
   cpt = 1
   If Range("A" & cpt).Value = "" Then
    Range("A" & cpt).Value = Texte.Value
   Else
    Range("A" & cpt).Offset(1, 0).Value = Texte.Value
   End If
   cpt = cpt + 1
End Sub

Ca marchait pour les 2 premieres cellules, mais ensuite a partir du 3e ca remplacait la 2e cellule, je pense qu'il manque juste un for ... mais pas moyen

[bzh_nicolas]

Un for n'est pas du tout adapté dans ce cas. La boucle for demande un nombre connu d'itération qui peut-être soit une valeur "écrite" :

For i=0 to 12

par exemple.
Ou une valeur donnée par une variable

For i=0 to nombre_d_iteration

Sinon tu es obligé de sortir de ta boucle avec une instruction "Exit For" ce qui n'est pas très propre...
Ici si tu veux coder proprement avec un for il faut d'abord compter le nombre d'itération (avec une boucle do...while, pas très intéressant au niveau des temps d'exécution.

Après si tu veux vraiment utilisé offset tu peux faire (attention pompage de code ) :

Private Sub CommandButton1_Click()
  Dim Compteur As Integer
  Dim Contenu As String
  
  Compteur = -1
  Do
    Compteur = Compteur + 1
    Contenu = Range("A1").Offset(Compteur, 0).value
  Loop Until Contenu = ""
  Range("A1").Offset(Compteur, 0).Value = TextBox1.Text
End Sub

Maintenant si tu veux programmer comme un cochon :

Private Sub CommandButton1_Click()
  Dim Compteur As Long
        
  For Compteur = 0 To 65536 'pour pouvoir couvrir toutes les cellules d'une feuille excel
    If (Range("A1").Offset(Compteur, 0).Value = "") Then
      Range("A1").Offset(Compteur, 0).Value = TextBox1.Text
      Exit For 'ce genre d'instruction est à éviter autant que possible...
    End If
  Next
End Sub

La première solution fait des appels inutiles à offset (et donc dois surement rendre l'exécution plus lente), la seconde fait des appels inutiles à offset et n'est pas propre.
Maintenant à toi de voir...

[invited4acd8f2]

Merci beaucoup, je ne connaissais pas le DO - Loop until et ca a l'air tres pratique

[invited4acd8f2]

Par contre dans ton 2ème code, j'ai un peu plus de mal à comprendre le principe:

Private Sub CommandButton1_Click()
  Dim Compteur As Long
        
  For Compteur = 0 To 65536 'pour pouvoir couvrir toutes les cellules d'une feuille excel
    If (Range("A1").Offset(Compteur, 0).Value = "") Then
      Range("A1").Offset(Compteur, 0).Value = TextBox1.Text
      Exit For 'ce genre d'instruction est à éviter autant que possible...
    End If
  Next
End Sub

C'est le Exit for qui sert de boucle ? ca sert a annuler le For ?

[bzh_nicolas]

Par contre dans ton 2ème code, j'ai un peu plus de mal à comprendre le principe:

C'est le Exit for qui sert de boucle ? ca sert a annuler le For ?

Pour le premier exemple, je n'ai fait que reprendre le code de Dormeur74 en accédant à la cellule par la méthode offset au lieu de faire un accès direct.

Dans le second code, Exit For sert à forcer la sortie de la boucle For sans attendre que ton indice de boucle est parcouru toutes les valeurs (ici de 0 à 65536).
J'aurais pu me passer de cette instruction, mais alors à chaque clic sur le bouton, la macro aurait parcouru toutes les cellules de la 1ère colonne (tu peux commenter la ligne Exit For, pour voir ce que ça donne à l'exécution). Là elle s'arrête dès qu'elle a trouvé la cellule où il faut écrire.
Ce genre de code est à éviter car il rend le code plus difficilement lisible et peu amener à des difficultés de débogage. Ces inconvénients augmentent au fur et à mesure que la complexité du code augmente (là c'est un cas simple donc ça va).

[invite8666d089]

C'est le Exit for qui sert de boucle ? ca sert a annuler le For ?

Oui, le Exit For sert à sortir d'une boucle For...Next lorsqu'on ne connaît pas le nombre d'itérations, comme te l'a dit bzh_nicolas. Personnellement, je n'aime pas du tout les sorties en force de ce type. Je préfère de loin While...Wend et Do...Loop Until. A résultat égal, le code est beaucoup plus intelligible.

Maintenant, si tu veux faire très rapide pour n'avoir pas à scanner la totalité de la colonne A pour trouver une cellule vide, tu as toujours la solution qui consiste à mémoriser le numéro de la dernière ligne utilisée dans la cellule de ton choix ou dans un fichier texte externe.