Sélectionner toutes les cellules non vides pour créer graphique

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
funkyfoenky
Membre fidèle
Membre fidèle
Messages : 331
Appréciations reçues : 5
Inscrit le : 15 avril 2013
Version d'Excel : Office 365

Message par funkyfoenky » 24 mars 2020, 17:01

OK du coup comme j'ai modifié l'incrémentation de la formule pour qu'elle se cantonne a la dernioère ligne non vide du tableau je retire cette partie
Avatar du membre
funkyfoenky
Membre fidèle
Membre fidèle
Messages : 331
Appréciations reçues : 5
Inscrit le : 15 avril 2013
Version d'Excel : Office 365

Message par funkyfoenky » 24 mars 2020, 17:02

Voilà le résultat :)
Tableau élèves total copie.xlsm
(34.64 Kio) Téléchargé 1 fois
l
laurentrennes35
Jeune membre
Jeune membre
Messages : 14
Appréciation reçue : 1
Inscrit le : 24 mars 2020
Version d'Excel : mac 2016

Message par laurentrennes35 » 24 mars 2020, 17:07

oh là là là là !!!! Et en plus ça avait l'air simple ;-)
Je vais regarder ça de près et étudier cette macro pour continuer à la développer...
Merci 10000 fois !!!
A bientôt (pour mon prochain pb ;-)
Laurent.
l
laurentrennes35
Jeune membre
Jeune membre
Messages : 14
Appréciation reçue : 1
Inscrit le : 24 mars 2020
Version d'Excel : mac 2016

Message par laurentrennes35 » 25 mars 2020, 15:51

Bonjour bonjour !

j'ai encore un petit souci... ;-)

J'essaye de faire un tableau (sur une nouvelle feuille) pour croiser les données...
Par exemple, savoir combien j'ai de personnes qui sont à la fois des garçons et des écoliers ?

Voici ma formule :

'page de calculs
Set new_sheet = Sheets.Add

Cells(1, 1).Value = "écoliers"
Range("B1").Select
ActiveCell.FormulaR1C1 = _
"= COUNTIFS(Sheet1!R[1]C[5]:R[derniere_ligne]C[5],""Garçon"",Sheet1!R[1]C[11]:R[derniere_ligne]C[11],""écolier"")"


Mais cela ne fonctionne pas (depuis que j'ai mis "derniere_ligne"...)
Si vous avez des idées !!!

Par ailleurs, la référence à une cellule (FormulaR1C1) fait que je dois tout décaler en fonction de la cellule dans laquelle le résultat sera écrit... Pfffff...

Merci et belle journée.

Laurent
Avatar du membre
funkyfoenky
Membre fidèle
Membre fidèle
Messages : 331
Appréciations reçues : 5
Inscrit le : 15 avril 2013
Version d'Excel : Office 365

Message par funkyfoenky » 25 mars 2020, 15:56

ActiveCell.FormulaR1C1 = _
"= COUNTIFS(Sheet1!R[1]C[5]:R[derniere_ligne]C[5],""Garçon"",Sheet1!R[1]C[11]:R[" & derniere_ligne & "]C[11],""écolier"")"
l
laurentrennes35
Jeune membre
Jeune membre
Messages : 14
Appréciation reçue : 1
Inscrit le : 24 mars 2020
Version d'Excel : mac 2016

Message par laurentrennes35 » 25 mars 2020, 19:04

Merci, mais malheureusement... j'ai l'erreur d'exécution 1004 :
La méthode "FormulaR1C1 de l'objet range a échoué...

Voici ce que j'ai mis :

'page de calculs
Set new_sheet = Sheets.Add

Cells(1, 1).Value = "écoliers"
Range("B1").Select
ActiveCell.FormulaR1C1 = _
"= COUNTIFS(Sheet1!R[1]C[5]:R[derniere_ligne]C[5],""Garçon"",Sheet1!R[1]C[11]:R[" & derniere_ligne & "]C[11],""écolier"")"


new_sheet.Name = "calculs"

Si tu as une autre idée ;-)

Merci en tout cas...
l
laurentrennes35
Jeune membre
Jeune membre
Messages : 14
Appréciation reçue : 1
Inscrit le : 24 mars 2020
Version d'Excel : mac 2016

Message par laurentrennes35 » 25 mars 2020, 19:07

oups !!! ça fonctionne !!!
J'ai ajouté aussi & et " à la première partie de la formule...
MERCI !!!
A très bientôt pour de nouvelles aventures ;-)

Laurent.
l
laurentrennes35
Jeune membre
Jeune membre
Messages : 14
Appréciation reçue : 1
Inscrit le : 24 mars 2020
Version d'Excel : mac 2016

Message par laurentrennes35 » 26 mars 2020, 13:44

Bonjour !
Et oui, encore moi ;-)
Petite question (j'imagine toute simple...).
J'ai cette formule :

Cells(2, 1).Value = "écolières"
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"= COUNTIFS(Sheet1!R[0]C[5]:R[" & derniere_ligne & "]C[5],""Fille"",Sheet1!R[0]C[11]:R[" & derniere_ligne & "]C[11],""écolier"")"

Mais à la place de la dernière ligne (derniere_ligne), je voudrais avoir la ligne précédente... ?

J'ai bien sûr tenté avec derniere_ligne -1 mais ça ne fonctionne pas...

Une petite idée ?

Merci !

Laurent.
Avatar du membre
funkyfoenky
Membre fidèle
Membre fidèle
Messages : 331
Appréciations reçues : 5
Inscrit le : 15 avril 2013
Version d'Excel : Office 365

Message par funkyfoenky » 26 mars 2020, 14:30

ActiveCell.FormulaR1C1 = _
"= COUNTIFS(Sheet1!R[0]C[5]:R[" & derniere_ligne - 1 & "]C[5],""Fille"",Sheet1!R[0]C[11]:R[" & derniere_ligne - 1 & "]C[11],""écolier"")"
Ca devrait fonctionner
l
laurentrennes35
Jeune membre
Jeune membre
Messages : 14
Appréciation reçue : 1
Inscrit le : 24 mars 2020
Version d'Excel : mac 2016

Message par laurentrennes35 » 26 mars 2020, 15:55

Merci !!!
C'est parfait, je n'avais pas mis le -1 au bon endroit...
Bonne journée.

Laurent.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message