Discussion :

[Martin3192]

Bonjour à toutes et à tous,
je fais de nouveau appel à votre aide pour 2 petites choses
1- VBA - je souhaite copier coller d'un onglet "BDD PF & EP" 2 colonnes (A2:B530) vers un autre onglet "PRIME FIXE & EP" en colonne (A2:B530) et ce en automatique à l'ouverture de l'onglet "PRIME FIXE & EP"???? Pouvez vous m'aider et me dire comment créer le code et ou le mettre exactement?

2- Avec une formule Excel, comment est il possible de chiffrer le nombre de cellule vide dans une colonne sachant que les cellules contiennent des formules et donc sont considérées comme non vide???

Merci

[Thautheme]

Bonjour Martin, bonjour le forum,

Point 1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Activate()
Dim OS As Worksheet
 
Set OS = Worksheets("BDD PF & EP")
OS.Range("A2:B530").Copy Range("A2:B530")
End Sub

À placer dans le code de l'onglet PRIME FIXE & EP.

Point 2 : trop nul en formule pour m'y risquer...

[halaster08]

Bonjour,

2- Avec une formule Excel, comment est il possible de chiffrer le nombre de cellule vide dans une colonne sachant que les cellules contiennent des formules et donc sont considérées comme non vide???

La fonction NB.VIDE donne bien 1 sur une cellule contenant une formule dont le résultat est vide (""), tu es sur que ta formule renvoie le vide et pas autre chose (un espace par exemple " "), dans ce cas tu pourrais utiliser la fonction NB.SI pour faire ton comptage.

[Philippe Tulliez]

Bonjour,
Pour la question 2, si la cellule contient une formule qui renvoie une chaîne vide comme dans l'exemple ci-dessous, la fonction NB.VIDE la comptabilisera comme étant vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(A2=1;"";10)

[Martin3192]

Bonjour Thautheme et merci de ton aide. Tout fonctionne.
Bonjour halaster08 et Philippe, je ne comprends pas trop quelle formule est à utiliser pour comptabiliser les cellules "vide" de ma colonne H sachant que dans chaque cellule de cette colonne il y une formule (SIERREUR(RECHERCHEV("BDD PF & EP'!C2;BDD PF & EP'K:0;5;FAUX);"poste bloqué3)
J'ai enlevé aussi dans les paramètres Excel l'affichage des 0 pour que la cellule s'affiche à blanc.
Merci de votre aide

[Philippe Tulliez]

Bonjour,

je ne comprends pas trop quelle formule est à utiliser pour comptabiliser les cellules "vide" de ma colonne H sachant que dans chaque cellule de cette colonne il y une formule (SIERREUR(RECHERCHEV("BDD PF & EP'!C2;BDD PF & EP'K:0;5;FAUX);"poste bloqué3)

Comme expliqué par Halaster et moi même, si une cellule contient une formule et que celle-ci renvoie une chaîne vide la cellule sera considérée comme vide si on utilise la fonction NB.VIDE
Mais comme dans la formule que tu nous présentes la fonction SIERREUR renvoie le texte poste bloqué3, il est évident que cette cellule ne sera pas considérée comme vide.
Si tu veux dénombrer le nombre de cellules renvoyant poste bloqué3, il faudra alors utiliser la fonction NB.SI

J'ai enlevé aussi dans les paramètres Excel l'affichage des 0 pour que la cellule s'affiche à blanc.

Décocher l'option Afficher un zéro pour les cellules contenant une valeur nulle n'efface pas les données contenant une valeur nulle mais les masques simplement. C'est donc purement visuel.
Il suffit pour t'en convaincre de taper 0 dans une cellule quelconque de la feuille pour le constater.

[Martin3192]

Merci de votre réponse rapide Philippe
en fait j'ai déjà essayé d'utiliser la fonction NB.SI pour comptabiliser non pas les cellules avec l'affichage "POSTE BLOQUE" mais bien les cellules à blanc ou j'ai volontairement masquer le zéro grâce aux options d'excel. Malheureusement, la fonction ne me ramène aucun résultat.

donc, c'est la formule que j'utilise mal pour comptabiliser toutes les cellules (A2:A239) contenant une valeur nulle de la colonne H de mon tableur. Sachant que pour ces cellules, la formule s'applique aussi

Peut être que je devrais comptabiliser les cellules contenant un zéro (même non visible) mais le problème pour moi est le même lors de la construction de la formule!!

Merci encore de votre aide

[Martin3192]

Bonsoir à tous,
problème résolu. Il fallait bien comptabiliser les cellules avec des zéros avec NB.SI
Merci de votre aide

[MarcelG]

Bonjour à vous, Bonjour au Forum,

Quelques remarques sur la ligne de code proposée judicieusement par Thautheme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OS.Range("A2:B530").Copy Range("A2:B530")

La feuille de destination n'étant pas précisée, par défaut, celle-ci est la feuille active.
Ce qui et le cas ici, le code étant lié à l'évènement Activate.
Dans le cas contraire, mieux vaut la préciser.

Pour ma part, j'aurais complété le code par
- l'argument

Destination:=

- la libération de la variable OS en fin de procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set OS = Nothing