[VBA-E]aide sur visual basic
	
	
		bonjour je me teste a vb jy connai pa gd chose encore !
voila jaimerai ke kkun me dise comment faire pour modifier la requete suivante pour l'appliquer a plusieurs colonnes selectionnees sur excel !
merci pour vos reponses...
	Code:
	
| 12
 3
 4
 5
 6
 7
 8
 9
 10
 
 | Public Sub ajoute()
    Dim i As Integer
ligne1:
    If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Select: GoTo ligne1
    ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
    ActiveCell.Offset(1, 0).Select
    GoTo ligne1:
ligne99:
    Range("A1").Select
End Sub |