Copier colonne si Non vide SUR VBA
MORALE
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
je voudrais copier une colonne (a:a) de la feuille 1 à la feuille2 colonne (a:a). Jusque là, facile.
Par contre la condition est que, si la colonne A est non vide, alors je veux copier dans la colonne B.
Si A et B sont non vides, je veux copier sur la colonne C et ainsi de suite.
Est-ce que quelqu'un peut m'aider ??
Merci Bcp d'avance
je voudrais copier une colonne (a:a) de la feuille 1 à la feuille2 colonne (a:a). Jusque là, facile.
Par contre la condition est que, si la colonne A est non vide, alors je veux copier dans la colonne B.
Si A et B sont non vides, je veux copier sur la colonne C et ainsi de suite.
Est-ce que quelqu'un peut m'aider ??
Merci Bcp d'avance
A voir également:
- Copier colonne si Non vide SUR VBA
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Comment supprimer une page vide sur word - Guide
- Colonne word - Guide
- Comment copier une vidéo youtube - Guide
1 réponse
Bonjour,
Tu peu connaître la première colonne vide avec...
A+
Tu peu connaître la première colonne vide avec...
Dim Col As Integer
Dim S As String
S = Sheets("Feuil1").Range("A1").SpecialCells(xlCellTypeLastCell).Address
If S <> "$A$1" Then 'Il y a déja des données
Col = Sheets("Feuil1").Range("A1").SpecialCells(xlCellTypeLastCell).Column + 1
Else 'Il n'y a pas encore de donnée
Col = 1
End If
A+
