Discussion :

[maketossss]

Bonjour,

J'ai un classeur avec une ligne à remplir contenant des listes déroulantes
Je souhaites attribuer à un bouton de commande une macro permettant de creer une nouvelle ligne à remplir à la suite des precedentes et ainsi de suite

Une idée sur la façon de s'y prendre ?

[SfJ5Rpw8]

déja sans macro ... tu sélectionne ta liste déroulante... et tu fais
donnéés/Grille..

puis tu vois si sa ressemble à ce que tu veu..

[maketossss]

en fait la ligne du classeur à remplir ne contient pas que des listes déroulantes, il y aussi des champs textes...

[SfJ5Rpw8]

en fait la ligne du classeur à remplir ne contient pas que des listes déroulantes, il y aussi des champs textes...

j'ai pas compris ce que tu appelle liste déroulante et champs textes ?

sinon avec

Code :

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

1
2
3
 
dim iL as integer 
iL = Cells(65535, 1).End(xlUp).Offset(1).Row

tu peu trouver le "numero" de la premiére ligne vide ( en fait en partant de on par de la derniére ligne du classeur, on remonte , jusqu'a trouver une cellule non vide dans 1° colonne et l'on retourne ensuite le numéro de ligne suivante...)

tu peu ensuite utiliser iL pour remplir ton fichier ...

Code :

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

1
2
3
4
5
 
 
  Cells(iL, 1) = "Remplir colonneA.."
  Cells(il, 2) = " ColonneB"
...

[maketossss]

en fait je pensais à un banal "copier coller", en copiant une ligne vierge des champs à remplir se situant sur une autre feuille et utiliser le 'iL" pour trouver la dernier ligne vide et faire un coller...

[maketossss]

Est ce correct ?

Code :

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

1
2
3
4
5
6
7
 
Range("AB5:AI5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Dim iL As Integer
    iL = Cells(65535, 1).End(xlUp).Offset(1).Row
    Cells(iL, 1) = ActiveSheet.Paste

[SfJ5Rpw8]

pour copier coller ... il faudrai faire plutot quelque chose dans le genre ..:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
 
Range("AB5:AI5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Dim iL As Integer
    iL = Cells(65535, 1).End(xlUp).Offset(1).Row
   Cells(iL, 1).Activate
   ActiveSheet.Paste
End Sub

Attention la tous ce passe dans la même feuille on copie de AB5..aI5 vers la 1° cellule vide de la colonne A....


faudrai savoir ce que tu ve faire exactement ...

[maketossss]

ça fonctionne impec

merci...

[Megaxel]

Donc, rajoute le tag "Résolu".