Discussion :

[Voggui]

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

[Jean-Philippe André]

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 te conviendrait :
https://excel.developpez.com/faq/?pa...reLigneNonVide

[Voggui]

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

[Jean-Philippe André]

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

La syntaxe générale à adapter toutefois serait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Voggui]

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

[OrDonc]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...