Selection plage de données VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Selection plage de données VBA

zixx2

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

Publicité

Arl Guhr

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

patrice33740

Avec la réponse, c'est facile.

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Selection plage de données VBA

Sujets relatifs
Copie coller avec VBA deux fichiers différents	Besoin d'aide Algorithmes VBA
VBA EXCEL impossible de modifier le contenu d'une cellule	VBA excel Consolidation de données
VBA EXCEL exportation de donnée vers une BD	EXCEL VBA Liaison Excel Base de donnée toute simple
Error Time 424 - VBA - Export vers word	VBA - Choisir les colonnes qui seront affichees
Plus de sujets relatifs à : Selection plage de données VBA

Page générée en 0.045 secondes