VBA ecrire dans la 1 ère cellule en haut a droite

Bonjour je suis entrain de développer un fichier pour mon travail néanmoins je suis un peu bloqué.
J'aimerais que lors de l'appui du bouton le textbox 1 s'affiche dans le fichier "suivi" dans la cellule A1 puis B1 etc jusque I1 puis aille a A2 (chaque appui du bouton valider)

Pouvez vous m'aider

Bonjour,

les fichiers contenant des macros sont bloqués au téléchargement de mon bord.

Pourrais-tu nous indiquer si la logique disponible dans la :faq: te conviendrait :
https://excel.developpez.com/faq/?pa...reLigneNonVide

oui cela me convient pouvez vous m'envoyer un code adapté a ma situation ?

Comme déjà évoqué, je suis aveugle par rapport à ton fichier Excel.

La syntaxe générale à adapter toutefois serait

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'a intégrer dans une boucle do while par exemple dim iLig As Integer iLig = 1 'determine le numero de colonne "la plus à droit remplie" Dim iCol As Integer iCol=Range("J" & iLig).End(xlToLeft).Column if iCol = 9 Then 'cas de la colonne I remplie, on va à la ligne suivante iLig = iLig +1 Else Cells(iLig, iCol+1).value = "Ta nouvelle valeur" End If

---

Bonjour
Le plus simple reste d'utiliser la numérotation interne des cellules d'une plage --->> exemple avec un bouton de commande commandbutton1 (à analyser, comprendre et adapter) --->>

Code:

---

1 2 3 4 5 6 7

Private plage As Range Private Sub CommandButton1_Click() Static ou As Long ou = ou + 1 If plage Is Nothing Then Set plage = Range("A1:I" & Rows.Count) plage(ou) = "coucou" End Sub

---

EDIT : il ressort par ailleurs de la relecture du premier message que les cellules remplies concernées sont des constantes et qu'elles sont sans solution de continuité. Et dans ce cas, c'est très simple --->>

Code:

---

1 2 3 4 5 6 7

Private plage As Range Private Sub CommandButton1_Click() Dim plage As Range, ou As Long If plage Is Nothing Then Set plage = Range("A1:I" & Rows.Count) ou = WorksheetFunction.CountA(plage) + 1 plage(ou) = "un coucou en " & plage(ou).Address(False, False) End Sub

---

Bonjour jean philippe !
Tout fonctionne sauf le retour a la ligne :(

Bonjour

Avec 10 contrôles (TextBox1, TextBox2 … TextBox10), de façon classique :

Code:

---

1 2 3 4 5 6 7 8 9

... With Sheets("suivi") Dim dl As Long dl = .Cells(Rows.Count, 1).End(xlUp).Row + 1 For n = 1 To 10 .Cells(dl, n) = Me("TextBox" & n) Next End With ...

---

Remarque : sans tenir compte des formats de cellule, sinon c'est une autre histoire ...

Cela fonctionne mais cela rempli toute la ligne d'un coup Hors j'aimerais cellule après cellule (chaque appui de bouton)
par exemple j'appui sur le bouton avec dans le TEXTBOX (101) il s'affiche dans la 1ère case vide
j'aapui a nouveau sur le bouton avec dans le TEXTBOx (102) il se met a la suite.
comme sur l'exemple ci dessous.
Est ce possible ?:D

Pièce jointe 462931

au final j'aimerais que ça ressemble à ça !