j'ai récupéré ce code sur le site excellabo de misange
qui est formidable
et justement je ne comprend pas cette macro n'a pas l'air
de fonctionner
======================
Sub chercheNonVide()
'Sélection discontinue de plages de cellules
Dim c, celVides, celNonVides As Range
Set celVides = Selection.SpecialCells(xlCellTypeBlanks)
For Each c In ActiveSheet.UsedRange
If Not (IsEmpty(c)) Then
If celNonVides Is Nothing Then
Set celNonVides = c.CurrentRegion
Else
If Intersect(c, celNonVides) Is Nothing Then
Set celNonVides = Union(celNonVides, c.CurrentRegion)
End If
End If
End If
Next c
End Sub
======================
pouvez vous me donner quelques explications
merci d'avance
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
Ardus Petus
La macro calcule le "Range" des cellules non vides de la sélection, mais n'en fait rien. Pour sélectionner le résultat, ajoute la ligne suivante avant End Sub:
celNonVides.Select
NB: laligne Dim c, celVides, celNonVides As Range déclare les variables c et celVides comme Variant. Il vaudrait mieux écrire: Dim c as Range, celVides as Range, celNonVides As Range
Cordialement, -- AP
"andrea" a écrit dans le message de news:
Bonjour
j'ai récupéré ce code sur le site excellabo de misange qui est formidable
et justement je ne comprend pas cette macro n'a pas l'air de fonctionner ===================== > Sub chercheNonVide() 'Sélection discontinue de plages de cellules
Dim c, celVides, celNonVides As Range Set celVides = Selection.SpecialCells(xlCellTypeBlanks) For Each c In ActiveSheet.UsedRange If Not (IsEmpty(c)) Then If celNonVides Is Nothing Then Set celNonVides = c.CurrentRegion Else If Intersect(c, celNonVides) Is Nothing Then Set celNonVides = Union(celNonVides, c.CurrentRegion) End If End If End If Next c End Sub ===================== > pouvez vous me donner quelques explications merci d'avance
La macro calcule le "Range" des cellules non vides de la sélection, mais
n'en fait rien.
Pour sélectionner le résultat, ajoute la ligne suivante avant End Sub:
celNonVides.Select
NB: laligne Dim c, celVides, celNonVides As Range déclare les variables c et
celVides comme Variant.
Il vaudrait mieux écrire:
Dim c as Range, celVides as Range, celNonVides As Range
Cordialement,
--
AP
"andrea" <andrea.parker@laposte.net> a écrit dans le message de news:
4460B5CC.8050803@laposte.net...
Bonjour
j'ai récupéré ce code sur le site excellabo de misange
qui est formidable
et justement je ne comprend pas cette macro n'a pas l'air
de fonctionner
===================== > Sub chercheNonVide()
'Sélection discontinue de plages de cellules
Dim c, celVides, celNonVides As Range
Set celVides = Selection.SpecialCells(xlCellTypeBlanks)
For Each c In ActiveSheet.UsedRange
If Not (IsEmpty(c)) Then
If celNonVides Is Nothing Then
Set celNonVides = c.CurrentRegion
Else
If Intersect(c, celNonVides) Is Nothing Then
Set celNonVides = Union(celNonVides, c.CurrentRegion)
End If
End If
End If
Next c
End Sub
===================== >
pouvez vous me donner quelques explications
merci d'avance
La macro calcule le "Range" des cellules non vides de la sélection, mais n'en fait rien. Pour sélectionner le résultat, ajoute la ligne suivante avant End Sub:
celNonVides.Select
NB: laligne Dim c, celVides, celNonVides As Range déclare les variables c et celVides comme Variant. Il vaudrait mieux écrire: Dim c as Range, celVides as Range, celNonVides As Range
Cordialement, -- AP
"andrea" a écrit dans le message de news:
Bonjour
j'ai récupéré ce code sur le site excellabo de misange qui est formidable
et justement je ne comprend pas cette macro n'a pas l'air de fonctionner ===================== > Sub chercheNonVide() 'Sélection discontinue de plages de cellules
Dim c, celVides, celNonVides As Range Set celVides = Selection.SpecialCells(xlCellTypeBlanks) For Each c In ActiveSheet.UsedRange If Not (IsEmpty(c)) Then If celNonVides Is Nothing Then Set celNonVides = c.CurrentRegion Else If Intersect(c, celNonVides) Is Nothing Then Set celNonVides = Union(celNonVides, c.CurrentRegion) End If End If End If Next c End Sub ===================== > pouvez vous me donner quelques explications merci d'avance
RGI
Bonsoir
si ceci peut aider ;-)
http://cjoint.com/?fjubwt2iJn
salutations
RGI
Bonjour
j'ai récupéré ce code sur le site excellabo de misange qui est formidable
et justement je ne comprend pas cette macro n'a pas l'air de fonctionner ===================== > Sub chercheNonVide() 'Sélection discontinue de plages de cellules
Dim c, celVides, celNonVides As Range Set celVides = Selection.SpecialCells(xlCellTypeBlanks) For Each c In ActiveSheet.UsedRange If Not (IsEmpty(c)) Then If celNonVides Is Nothing Then Set celNonVides = c.CurrentRegion Else If Intersect(c, celNonVides) Is Nothing Then Set celNonVides = Union(celNonVides, c.CurrentRegion) End If End If End If Next c End Sub ===================== > pouvez vous me donner quelques explications merci d'avance
Bonsoir
si ceci peut aider ;-)
http://cjoint.com/?fjubwt2iJn
salutations
RGI
Bonjour
j'ai récupéré ce code sur le site excellabo de misange
qui est formidable
et justement je ne comprend pas cette macro n'a pas l'air
de fonctionner
===================== > Sub chercheNonVide()
'Sélection discontinue de plages de cellules
Dim c, celVides, celNonVides As Range
Set celVides = Selection.SpecialCells(xlCellTypeBlanks)
For Each c In ActiveSheet.UsedRange
If Not (IsEmpty(c)) Then
If celNonVides Is Nothing Then
Set celNonVides = c.CurrentRegion
Else
If Intersect(c, celNonVides) Is Nothing Then
Set celNonVides = Union(celNonVides, c.CurrentRegion)
End If
End If
End If
Next c
End Sub
===================== >
pouvez vous me donner quelques explications
merci d'avance
j'ai récupéré ce code sur le site excellabo de misange qui est formidable
et justement je ne comprend pas cette macro n'a pas l'air de fonctionner ===================== > Sub chercheNonVide() 'Sélection discontinue de plages de cellules
Dim c, celVides, celNonVides As Range Set celVides = Selection.SpecialCells(xlCellTypeBlanks) For Each c In ActiveSheet.UsedRange If Not (IsEmpty(c)) Then If celNonVides Is Nothing Then Set celNonVides = c.CurrentRegion Else If Intersect(c, celNonVides) Is Nothing Then Set celNonVides = Union(celNonVides, c.CurrentRegion) End If End If End If Next c End Sub ===================== > pouvez vous me donner quelques explications merci d'avance
RGI
voir feuille 1 & 2 dans cet exemple
Bonsoir
RGI
Bonsoir
si ceci peut aider ;-)
http://cjoint.com/?fjubwt2iJn
salutations
RGI
Bonjour
j'ai récupéré ce code sur le site excellabo de misange qui est formidable
et justement je ne comprend pas cette macro n'a pas l'air de fonctionner ===================== >> Sub chercheNonVide() 'Sélection discontinue de plages de cellules
Dim c, celVides, celNonVides As Range Set celVides = Selection.SpecialCells(xlCellTypeBlanks) For Each c In ActiveSheet.UsedRange If Not (IsEmpty(c)) Then If celNonVides Is Nothing Then Set celNonVides = c.CurrentRegion Else If Intersect(c, celNonVides) Is Nothing Then Set celNonVides = Union(celNonVides, c.CurrentRegion) End If End If End If Next c End Sub ===================== >> pouvez vous me donner quelques explications merci d'avance
voir feuille 1 & 2 dans cet exemple
Bonsoir
RGI
Bonsoir
si ceci peut aider ;-)
http://cjoint.com/?fjubwt2iJn
salutations
RGI
Bonjour
j'ai récupéré ce code sur le site excellabo de misange
qui est formidable
et justement je ne comprend pas cette macro n'a pas l'air
de fonctionner
===================== >> Sub chercheNonVide()
'Sélection discontinue de plages de cellules
Dim c, celVides, celNonVides As Range
Set celVides = Selection.SpecialCells(xlCellTypeBlanks)
For Each c In ActiveSheet.UsedRange
If Not (IsEmpty(c)) Then
If celNonVides Is Nothing Then
Set celNonVides = c.CurrentRegion
Else
If Intersect(c, celNonVides) Is Nothing Then
Set celNonVides = Union(celNonVides, c.CurrentRegion)
End If
End If
End If
Next c
End Sub
===================== >>
pouvez vous me donner quelques explications
merci d'avance
j'ai récupéré ce code sur le site excellabo de misange qui est formidable
et justement je ne comprend pas cette macro n'a pas l'air de fonctionner ===================== >> Sub chercheNonVide() 'Sélection discontinue de plages de cellules
Dim c, celVides, celNonVides As Range Set celVides = Selection.SpecialCells(xlCellTypeBlanks) For Each c In ActiveSheet.UsedRange If Not (IsEmpty(c)) Then If celNonVides Is Nothing Then Set celNonVides = c.CurrentRegion Else If Intersect(c, celNonVides) Is Nothing Then Set celNonVides = Union(celNonVides, c.CurrentRegion) End If End If End If Next c End Sub ===================== >> pouvez vous me donner quelques explications merci d'avance
andrea
c'est impec merci
RGI a écrit:
voir feuille 1 & 2 dans cet exemple
Bonsoir
RGI
Bonsoir
si ceci peut aider ;-)
http://cjoint.com/?fjubwt2iJn
salutations
RGI
Bonjour
j'ai récupéré ce code sur le site excellabo de misange qui est formidable
et justement je ne comprend pas cette macro n'a pas l'air de fonctionner ===================== >>> Sub chercheNonVide() 'Sélection discontinue de plages de cellules
Dim c, celVides, celNonVides As Range Set celVides = Selection.SpecialCells(xlCellTypeBlanks) For Each c In ActiveSheet.UsedRange If Not (IsEmpty(c)) Then If celNonVides Is Nothing Then Set celNonVides = c.CurrentRegion Else If Intersect(c, celNonVides) Is Nothing Then Set celNonVides = Union(celNonVides, c.CurrentRegion) End If End If End If Next c End Sub ===================== >>> pouvez vous me donner quelques explications merci d'avance
c'est impec
merci
RGI a écrit:
voir feuille 1 & 2 dans cet exemple
Bonsoir
RGI
Bonsoir
si ceci peut aider ;-)
http://cjoint.com/?fjubwt2iJn
salutations
RGI
Bonjour
j'ai récupéré ce code sur le site excellabo de misange
qui est formidable
et justement je ne comprend pas cette macro n'a pas l'air
de fonctionner
===================== >>> Sub chercheNonVide()
'Sélection discontinue de plages de cellules
Dim c, celVides, celNonVides As Range
Set celVides = Selection.SpecialCells(xlCellTypeBlanks)
For Each c In ActiveSheet.UsedRange
If Not (IsEmpty(c)) Then
If celNonVides Is Nothing Then
Set celNonVides = c.CurrentRegion
Else
If Intersect(c, celNonVides) Is Nothing Then
Set celNonVides = Union(celNonVides, c.CurrentRegion)
End If
End If
End If
Next c
End Sub
===================== >>>
pouvez vous me donner quelques explications
merci d'avance
j'ai récupéré ce code sur le site excellabo de misange qui est formidable
et justement je ne comprend pas cette macro n'a pas l'air de fonctionner ===================== >>> Sub chercheNonVide() 'Sélection discontinue de plages de cellules
Dim c, celVides, celNonVides As Range Set celVides = Selection.SpecialCells(xlCellTypeBlanks) For Each c In ActiveSheet.UsedRange If Not (IsEmpty(c)) Then If celNonVides Is Nothing Then Set celNonVides = c.CurrentRegion Else If Intersect(c, celNonVides) Is Nothing Then Set celNonVides = Union(celNonVides, c.CurrentRegion) End If End If End If Next c End Sub ===================== >>> pouvez vous me donner quelques explications merci d'avance
