[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:
1 2 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 |