Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michd
Bonjour, C'est très rare que l'on ait besoin de sélectionner une plage de cellules dans une macro. Ce que tu demandes n'est pas possible quant à la manière dont tu veux procéder si le nombre de cellules est très important. Décris ce que tu veux accomplir, il doit y avoir un moyen d'arriver à tes fins sans devoir recourir à la sélection des cellules. On peut toujours utiliser ceci, si la plage de cellules n'est pas trop grande ainsi que le nombre de cellules répondant aux critères. Plus il y a de cellules répondant aux conditions, plus de temps d'exécution est long. Je n'ai jamais testé, mais il doit bien y avoir une limite quant aux nombres de cellules que peut contenir la variable RG. Exemple de code : '------------------------------------------------------ Sub tetst() Dim C As Range, Rg As Range With Worksheet("Feuil1") For Each C In .Range("A1:A10").Cells If C.NumberFormat = "0.00" Then If Rg Is Nothing Then Set Rg = C Else Set Rg = Union(Rg, C) End If End If Next End With Rg.Select End Sub '------------------------------------------------------ MichD
Bonjour,
C'est très rare que l'on ait besoin de sélectionner une plage de cellules dans une macro. Ce que tu
demandes n'est pas possible quant à la manière dont tu veux procéder si le nombre de cellules est
très important.
Décris ce que tu veux accomplir, il doit y avoir un moyen d'arriver à tes fins sans devoir recourir
à la sélection des cellules.
On peut toujours utiliser ceci, si la plage de cellules n'est pas trop grande ainsi que le nombre de
cellules répondant aux critères. Plus il y a de cellules répondant aux conditions, plus de temps
d'exécution est long. Je n'ai jamais testé, mais il doit bien y avoir une limite quant aux nombres
de cellules que peut contenir la variable RG.
Exemple de code :
'------------------------------------------------------
Sub tetst()
Dim C As Range, Rg As Range
With Worksheet("Feuil1")
For Each C In .Range("A1:A10").Cells
If C.NumberFormat = "0.00" Then
If Rg Is Nothing Then
Set Rg = C
Else
Set Rg = Union(Rg, C)
End If
End If
Next
End With
Rg.Select
End Sub
'------------------------------------------------------
Bonjour, C'est très rare que l'on ait besoin de sélectionner une plage de cellules dans une macro. Ce que tu demandes n'est pas possible quant à la manière dont tu veux procéder si le nombre de cellules est très important. Décris ce que tu veux accomplir, il doit y avoir un moyen d'arriver à tes fins sans devoir recourir à la sélection des cellules. On peut toujours utiliser ceci, si la plage de cellules n'est pas trop grande ainsi que le nombre de cellules répondant aux critères. Plus il y a de cellules répondant aux conditions, plus de temps d'exécution est long. Je n'ai jamais testé, mais il doit bien y avoir une limite quant aux nombres de cellules que peut contenir la variable RG. Exemple de code : '------------------------------------------------------ Sub tetst() Dim C As Range, Rg As Range With Worksheet("Feuil1") For Each C In .Range("A1:A10").Cells If C.NumberFormat = "0.00" Then If Rg Is Nothing Then Set Rg = C Else Set Rg = Union(Rg, C) End If End If Next End With Rg.Select End Sub '------------------------------------------------------ MichD