Si colonne vide alors copier données d'une autre colonne macro
miliev83
-
Stellou la rebelle Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
Stellou la rebelle Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
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
- Trier colonne excel - Guide
- Colonne word - Guide
- Formule somme excel colonne - Guide
- Figer colonne excel - Guide
3 réponses
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 !