DanB34
XLDnaute Nouveau
Bonjour à tous,
Je pense avoir un problème de syntaxe.
En utilisant Range, il est possible de sélectionner un grand nombre de plages sans que ça pose problème, alors qu'en utilisant Cells, dès que plus de 2 plages sont sélectionnées ça ne fonctionne plus et l'erreur suivante apparait : nombre d'argument incorrect ou affectation de propriété incorrecte.
Si quelqu'un a une idée, je suis preneur ;-)
Ex avec 2 plage -> fonctionne :
En ajoutant une 3e plage, ne fonctionne plus :
En utilisant Range, le nombre de plages ne pose pas de problème :
Bien cordialement,
Dan
Je pense avoir un problème de syntaxe.
En utilisant Range, il est possible de sélectionner un grand nombre de plages sans que ça pose problème, alors qu'en utilisant Cells, dès que plus de 2 plages sont sélectionnées ça ne fonctionne plus et l'erreur suivante apparait : nombre d'argument incorrect ou affectation de propriété incorrecte.
Si quelqu'un a une idée, je suis preneur ;-)
Ex avec 2 plage -> fonctionne :
VB:
NbCelVides = Range(Cells(13, 2) & ":" & Cells(lastrowWsDSINP & 6), Cells(13, 8) & ":" & Cells(lastrowWsDSINP & 8)).SpecialCells(xlCellTypeBlanks).CountEn ajoutant une 3e plage, ne fonctionne plus :
VB:
NbCelVides = Range(Cells(13, 2) & ":" & Cells(lastrowWsDSINP & 6), Cells(13, 8) & ":" & Cells(lastrowWsDSINP & 8), Cells(13, 62) & ":" & Cells(lastrowWsDSINP & 62)).SpecialCells(xlCellTypeBlanks).CountEn utilisant Range, le nombre de plages ne pose pas de problème :
VB:
NbCelVides = Range("B13:F" & lastrowWsDSINP & "," & "H13:H" & lastrowWsDSINP & "," & "BJ13:BJ" & lastrowWsDSINP & "," & "BL13:BL" & lastrowWsDSINP & "," & "BN13:BN" & lastrowWsDSINP & "," & "BP13:BP" & lastrowWsDSINP & "," & "BX13:BX" & lastrowWsDSINP & "," & "CG13:CG" & lastrowWsDSINP & "," & "CM13:CM" & lastrowWsDSINP).SpecialCells(xlCellTypeBlanks).CountBien cordialement,
Dan