Si colonne vide alors copier données d'une autre colonne macro

Fermé
miliev83 - 13 juin 2013 à 17:37
Stellou la rebelle Messages postés 20 Date d'inscription vendredi 14 juin 2013 Statut Membre Dernière intervention 23 juillet 2013 - 19 juin 2013 à 09:49
Bonjour,

J'ai un tableau dynamique sur un onglet feuil1 dont la taille peut varier selon les données.

Je souhaiterais avoir une macro qui fonctionnerait ainsi, par exemple :

si la colonne O ne contient aucune donnée alors copier les colonnes A à D de l'onglet feuil2 et faire une mise en forme cadriage de la longueur du tableau dynamique.

En espérant que cela soit réalisable,

merci d'avance
A voir également:

3 réponses

Stellou la rebelle Messages postés 20 Date d'inscription vendredi 14 juin 2013 Statut Membre Dernière intervention 23 juillet 2013
17 juin 2013 à 09:43
Bonjour,
il existe à ma connaissance la fonction CountA qui te permet de déterminer le nombre de cellule non vides. Dans ton cas, je pense qu'il faudrait écrire :

Dim nombre_case As Integer

nombre_case=worksheetFunction.CountA(Range("O:O")

If nombre_case = 0 Then
'Je copie ma colonne A dans O'
Else
'J'affiche un message d'erreur avec MsgBox
End If

Voilà j'espère que ça t'aidera !
0
merci pour ta réponse, je vais le faire à la main car moi et vba ca fait 12......
0
Stellou la rebelle Messages postés 20 Date d'inscription vendredi 14 juin 2013 Statut Membre Dernière intervention 23 juillet 2013
19 juin 2013 à 09:49
n'hésite pas si tu as encore besoin d'aide !
0