Re : Création Base données
Bonsoir,
je te remercie de ton aide j'ai cherchée plus en profondeur dans le forum et j'ai trouvé la solution que je communique:
Dim cel As Range, plagemenu As Integer
Sub transpose_dans_tableau()
plagemenu = Feuil1.Range("A65536").End(xlUp).Row + 1
With Feuil1
.Cells(plagemenu, 1) = Feuil2.Range("B1")
.Cells(plagemenu, 2) = Feuil2.Range("B2")
.Cells(plagemenu, 3) = Feuil2.Range("B3")
.Cells(plagemenu, 4) = Feuil2.Range("B4")
.Cells(plagemenu, 5) = Feuil2.Range("B5")
End With
'Rendre vierge le formulaire
Sheets("Formulaire").Select
Range("B1:B5").Select
Selection.ClearContents
Range("B1").Select
'Retourner dans le tableau
Sheets("Formulaire").Select
Range("A1").Select
End Sub
Bonne soirée et merci à toi
BERRACHED said