Aide fonction Rows.Count).End(xlUp).Row + 1

[vmax67]

Bonsoir,

j'aurai besoin d'aide afin de finaliser mon code ci-dessous.
Le code fonctionne parfaitement, celui-ci copie bien bien à la première ligne vide, mais j'aimerai copier à la première ligne vide, et ensuite les lignes suivantes toutes les 3 lignes pour remplir un tableau formater.

Exemple copie la première ligne en ligne 14, et ensuite ligne 17,21,24,27,30,33,36,39,42 et 43 pour finir.

Par avance merci.

Vmax

 

[JM27]

Bonjour
sur ce que j'ai compris
tu remplaces le 1 par 3
ca me parait trop simple
mais sans fournir de fichier , difficile d'en dire plus

 

[vmax67]

Bonsoir,
non c'est pas ça

 

[vmax67]

Avec le fichier

 

[vmax67]

Bonjour, alors pas d'amateur pour me donner un coup de main.

 

[vmax67]

Bonjour à tous,

je me permet de relancer ma requête.

Par avance merci

 

[eriiic]

Bonjour,

ton fichier plante à l'ouverture, je n'ai pas insisté.
De plus tu ne fournis pas ton code ni d'indication sur lequel c'est. Ceci explique sans doute les non réponses...
A tout hasard qq chose comme :

For lig = 14 to 43 step 3

à toi d'adapter
Mais 17 à 21 c'est +4 et 42 à 43 c'est +1.

toutes les 3 lignes

me laisse sceptique
eric

 

[herve62]

Bonsoir
Le truc qui gêne c'est ça

toutes les 3 lignes pour remplir un tableau formater.

Mais pour le vérifier on ne sait pas OU ?? , ton USF est démesuré à l'écran donc on ne voit pas tout !!
Bon en "jouant" avec toutes les touches .../ comme Echap .... etc et du bol on trouve le reste ?????
et là encore on ne voit pas ce que tu veux faire ?
Je dis tout haut ce que les autres ont pensé tout bas donc si tu réponds :

Bonjour, alors pas d'amateur pour me donner un coup de main.

Ne cherche pas trop le pourquoi !!!
Tu n'es pas nouveau , donc détaille ce que tu fais exactement , ou est ton BUG !!! et la discussion n'en sera que meilleure !!

 

[mapomme]

Bonjour @vmax67, à tous,

Essayer le code ci-dessous.

Private Sub C_Test_Click()
'les cellules de base (ligne 1 d'affichage) pour l'affichage
'dans l'ordre des Textbox : Id,marque,désignation,emplacement,magasin
Const cellulesDébut = "d15,d17,i15,m15,n17"

Const decalage = 5    'le décalage entre chaque écriture d'un bloc
                      'sur la feuille sortie
Dim i As Long, j As Long, xdecal As Long
Dim tAdresseBase      'le tableau des adresses de base
Dim Nieme As Long      ' le numéro de la textbox à afficher

'on transfère le texte cellulesDébut dans le tableau tAdresseBase
tAdresseBase = Split(cellulesDébut, ",")  'attention tableau de base 0
                                          '(1er indice= 0 et non 1)

With Sheets("Sortie")
  'effacement des précédentes données
  Intersect(.Rows("15:" & .Rows.Count), .UsedRange).ClearContents
  'boucle d'écriture
  For i = 1 To 11
    'si la ligne est vide
    If Me("T" & (1 + (i - 1) * 5)) = "" Then Exit For
    'boucle d'écriture d'une ligne - on boucle sur les 5 TextBox
    xdecal = 5 * (i - 1)
    For j = 1 To 5
      Nieme = 1 + 5 * (i - 1) + (j - 1)
      .Range(tAdresseBase(j - 1)).Offset(xdecal) = Controls("T" & Nieme).Text
    Next j
  Next i
End With
Unload Me
Worksheets("Sortie").Activate
End Sub

 

[vmax67]

Bonjour Mapomme super,

merci beaucoup c'est parfait.

Merci aux contributeurs de ce forum.

Vmax