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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager