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
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
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:
- Si colonne vide alors copier données d'une autre colonne macro
- Déplacer une colonne excel - Guide
- Formule somme excel colonne - Guide
- Trier colonne excel - Guide
- Colonne word - Guide
- Figer colonne excel - Guide
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
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 !
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 !
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
19 juin 2013 à 09:49
n'hésite pas si tu as encore besoin d'aide !