Selection plage de données VBA

Marsh Posté le 20-04-2015 à 15:48:13

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 :

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

Reply

Marsh Posté le 20-04-2015 à 15:48:13

Reply

Marsh Posté le 20-04-2015 à 18:45:46

Ta ligne 22 as une erreur de syntaxe.

Dans une chaine de caractère, si tu veux qu'il y ai un " : il faut le doubler
"= CountIf(F1.Range("D", Range("D" ).End(xlDown)), Range("D" & J))"
deviens
"= CountIf(F1.Range(""D"", Range(""D"" ).End(xlDown)), Range(""D"" & J))"

Mais ça ne fonctionnera de toute façon pas car, dans une cellule F1.range ne veut rien dire
Ce que je comprend de ton problème c'est plutôt ça que tu veux :
"= CountIf(D:D, D" & J & " )"

Message édité par Arl Guhr le 20-04-2015 à 21:10:15

---------------
il s'appel le ronge me doute

Reply

Marsh Posté le 21-04-2015 à 18:32:21

Bonjour,

Essaies :

Code :

Option Explicit
Sub Macro1()
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim rng As Range
Dim NbLg As Long
Dim j As Long
Set F1 = Worksheets("Log16" )
Set F2 = Worksheets("Log17" )
With F1
On Error Resume Next
.Range("D:D" ).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End With
With F2
On Error Resume Next
.Range("D:D" ).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
NbLg = .Range("A" & Rows.Count).End(xlUp).Row
For j = 2 To NbLg
.Range("F" & j).FormulaR1C1Local = "=NB.SI(L2C4:L" & NbLg & "C4;LC(-2))"
Next j
End With
End Sub

Edit : pour le cas ou il n'y a pas de cellules vides

Message édité par patrice33740 le 21-04-2015 à 18:42:50

---------------
Cordialement, Patrice

Reply

Selection plage de données VBA

Sujets relatifs:

Leave a Replay