Macro pour insérer une ligne puis étirer

Re : Macro pour insérer une ligne puis étirer

ventiler veut dire: mettre dans la colonne "D" (Pilote) et colonne "G" (Nationalité)
bye

Re : Macro pour insérer une ligne puis étirer

voila ce que je peux te proposer rapidement :

Sub InsereRecopie()
Dim DerniereLigne As Long
Dim Nom As String, Nationalite As String

Nom = InputBox("Nom :", "Saisissez le nom du pilote :")
Nationalite = InputBox("Nationalité :", "Saisissez la nationalité du pilote :")
DerniereLigne = Range("C65536").End(xlUp).Row - 4
Cells(DerniereLigne, 1).EntireRow.Insert
Range("H" & DerniereLigne - 1 & ":M" & DerniereLigne - 1).Select
Selection.AutoFill Destination:=Range("H" & DerniereLigne - 1 & ":M" & DerniereLigne), Type:=xlFillDefault
Cells(DerniereLigne, 4).Value = Nom
Cells(DerniereLigne, 7).Value = Nationalite

End Sub


Si tu sais TOUT ce a quoi tu veux arriver, il serait bon que tu le dises dans une relative globalité car sinon on risque de faire et defaire pour aller chaque fois plus loin.
Par ex : je te propose une inputbox pour ce cas. Pourquoi faire un userform pour obtenir seulement un nom et une nationalité?

A toi de voir et dis nous

Re : Macro pour insérer une ligne puis étirer

Merci Lapix ta macro est excellente mais pour ma culture du VB, j'aurais aimer avoir une variante avec un userform !!
possible ou pas ??
bye

Re : Macro pour insérer une ligne puis étirer

Tout est possible

archi à dit:

Merci Lapix ta macro est excellente mais pour ma culture du VB, j'aurais aimer avoir une variante avec un userform !!
possible ou pas ??
bye

Cliquez pour agrandir...

Re : Macro pour insérer une ligne puis étirer

Merci je regarde ca demain
bye

Re : Macro pour insérer une ligne puis étirer

Merci pour la variante Lapix
bye