Selection plage de données VBA

Bonjour,
l'idée de ma macro serait de repertorier les matricules identiques ou non dans une de mes feuilles. Pour cela je supprime tout d'abord les lignes sans matricule présente dans mon fichier puis je fais un countIf (vba =NB.SI en excel) pour rechercher quel matricule se trouve dans la feuille précédente. Merci par avance pour votre aide!
Pb : Je voudrais selectionner une plage de cellule sur ma feuille Log16 ( CountIf(F1.Range("D", Range("D").End(xlDown)), Range("D" & J))) mais j'ai une erreur de syntaxe dans mon code pouvez vous m'aider s'il vous plait?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub Macro1() ' ' Macro1 Macro ' Dim NbLg As Long Colonnes = Array("D")     Set F1 = Sheets("Log16") Set F2 = Sheets("Log17")   With F1 Range("D:D").SpecialCells(xlCellTypeBlanks).EntireRow.Delete End With   With F2 Range("D:D").SpecialCells(xlCellTypeBlanks).EntireRow.Delete   NbLg = .Range("A" & Rows.Count).End(xlUp).Row   For J = 2 To NbLg F2.Range("F2").FormulaR1C1 = "= CountIf(F1.Range("D", Range("D").End(xlDown)), Range("D" & J))" Next J End With

---

Cordialement,
Jérémy

Bonjour,

tu as deux problèmes :

- tu utilises la propriété FormulaR1C1 mais tu passes des Ranges au lieu de [R] et de [C]
- quand tu veux passer des guillemets dans une chaine de caractère, tu dois doubler le guillemets pour que VBA comprenne que ça fait partie de ta chaine

si tu n'as pas besoin de conserver la formule de tes CountIf, et que le résultat uniquement suffit, tu peux utiliser ça :

Code:

---

1 2	F2.Range("F2") = Application.WorksheetFunction.CountIf(F1.Range("D", Range("D").End(xlDown)), Range("D" & J))

---

par contre, tu vas écrire ton résultat à chaque fois dans ta cellule F2 ... et donc écraser le résultat précédent à chaque tour de boucle, là aussi c'est un problème.

je ne donne pas la solution toute faite, je te laisse un peu chercher et proposer une piste ok ?

Bonjour,

Tu travaille sur deux feuilles il est donc très important de rattacher chaque Range à sa "parente" comme tu le fais pour certains. En partant de la ligne de code de Joe, ça devrait donner ceci :

Code:

---

1 2	F2.Range("F2") = Application.WorksheetFunction.CountIf(F1.Range("D", F1.Range("D").End(xlDown)), F1.Range("D" & J))

---

sinon, ça sera la feuille active qui sera prise en considération par le compilateur.

Hervé.

Encore +1

je suis vraiment pas concentré aujourd'hui ....

Le lundi c'est souvent ça ;)