Copier colonne si Non vide SUR VBA

MORALE -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention - 22 juin 2010 à 14:57

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

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
Formule somme excel colonne - Guide

1 réponse

Réponse 1 / 1

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Bonjour,
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+

Discussions similaires

le frigo ne marche pas....

dessin avec symbole clavier

Internat nourriture

Excel VBA : Derniere colonne utilisée

Excel formule : nb.si.ens et critère "différent de vide"

Votre réponse

Discussions similaires