Sélectionner TOUTES les cellules qui contiennent des chiffres au format texte
3 réponses
SylVBA
Bsr =E0 vous tous,
Voil=E0, dans ma colonne A j'ai une centaine de cellules, avec un titre
"Toto" et des chiffre au format nombre..; certains sont au format
texte (=E0 gauche de la cellule)
Je sais les convertir, ce que je cherche c'est pouvoir TOUTES les
s=E9lectionner par une macro afin de savoir combien il y en a et ou
elles sont ..
J'ai essay=E9:
Range("a1:A23").SpecialCells(xlCellTypeConstants, 2).Select 'pour
celles qui contiennent du vrai texte type "Toto"
Range("a1:A23").SpecialCells(xlCellTypeConstants, 1).Select 'pour les
chiffres au format nombre ou texte les 2..
Range("a1:A23").SpecialCells(xlCellTypeConstants).Select 'S=E9l=E9ctionne
toute la plage...
For Each C In Range("A1", [A1].End(xlDown)) 'ou une autre plage
If C.NumberFormat =3D "@" Then
'c'est toutes celles l=E0 que je cherche =E0 s=E9l=E9ctionner !!!
UNIQUEMENt les cellules avec des chiffres mais au format "@" pas les
autres !!
End If
Next
Je suis bloqu=E9e sur ce truc, avez vous la gentillesse de m'aider =E0
trouver LA solution ?
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
Sylvie
test "SylVBA" a écrit dans le message de news: Bsr à vous tous,
Voilà, dans ma colonne A j'ai une centaine de cellules, avec un titre "Toto" et des chiffre au format nombre..; certains sont au format texte (à gauche de la cellule)
Je sais les convertir, ce que je cherche c'est pouvoir TOUTES les sélectionner par une macro afin de savoir combien il y en a et ou elles sont ..
J'ai essayé:
Range("a1:A23").SpecialCells(xlCellTypeConstants, 2).Select 'pour celles qui contiennent du vrai texte type "Toto" Range("a1:A23").SpecialCells(xlCellTypeConstants, 1).Select 'pour les chiffres au format nombre ou texte les 2.. Range("a1:A23").SpecialCells(xlCellTypeConstants).Select 'Séléctionne toute la plage...
For Each C In Range("A1", [A1].End(xlDown)) 'ou une autre plage If C.NumberFormat = "@" Then 'c'est toutes celles là que je cherche à séléctionner !!! UNIQUEMENt les cellules avec des chiffres mais au format "@" pas les autres !! End If Next
Je suis bloquée sur ce truc, avez vous la gentillesse de m'aider à trouver LA solution ?
Merci et à Tout !
Syl VBA
test
"SylVBA" <sylvie.laurent82@wanadoo.fr> a écrit dans le message de
news:47f0837f-384c-4a88-8f09-6591361b1973@e17g2000hsg.googlegroups.com...
Bsr à vous tous,
Voilà, dans ma colonne A j'ai une centaine de cellules, avec un titre
"Toto" et des chiffre au format nombre..; certains sont au format
texte (à gauche de la cellule)
Je sais les convertir, ce que je cherche c'est pouvoir TOUTES les
sélectionner par une macro afin de savoir combien il y en a et ou
elles sont ..
J'ai essayé:
Range("a1:A23").SpecialCells(xlCellTypeConstants, 2).Select 'pour
celles qui contiennent du vrai texte type "Toto"
Range("a1:A23").SpecialCells(xlCellTypeConstants, 1).Select 'pour les
chiffres au format nombre ou texte les 2..
Range("a1:A23").SpecialCells(xlCellTypeConstants).Select 'Séléctionne
toute la plage...
For Each C In Range("A1", [A1].End(xlDown)) 'ou une autre plage
If C.NumberFormat = "@" Then
'c'est toutes celles là que je cherche à séléctionner !!!
UNIQUEMENt les cellules avec des chiffres mais au format "@" pas les
autres !!
End If
Next
Je suis bloquée sur ce truc, avez vous la gentillesse de m'aider à
trouver LA solution ?
test "SylVBA" a écrit dans le message de news: Bsr à vous tous,
Voilà, dans ma colonne A j'ai une centaine de cellules, avec un titre "Toto" et des chiffre au format nombre..; certains sont au format texte (à gauche de la cellule)
Je sais les convertir, ce que je cherche c'est pouvoir TOUTES les sélectionner par une macro afin de savoir combien il y en a et ou elles sont ..
J'ai essayé:
Range("a1:A23").SpecialCells(xlCellTypeConstants, 2).Select 'pour celles qui contiennent du vrai texte type "Toto" Range("a1:A23").SpecialCells(xlCellTypeConstants, 1).Select 'pour les chiffres au format nombre ou texte les 2.. Range("a1:A23").SpecialCells(xlCellTypeConstants).Select 'Séléctionne toute la plage...
For Each C In Range("A1", [A1].End(xlDown)) 'ou une autre plage If C.NumberFormat = "@" Then 'c'est toutes celles là que je cherche à séléctionner !!! UNIQUEMENt les cellules avec des chiffres mais au format "@" pas les autres !! End If Next
Je suis bloquée sur ce truc, avez vous la gentillesse de m'aider à trouver LA solution ?
Merci et à Tout !
Syl VBA
Youky
Bonsoir Sylvie,
For Each c In Range("A1", [A1].End(xlDown)) 'ou une autre plage If c.NumberFormat = "@" Then i = i + 1 zz = zz & c.Address & "," End If Next If zz = "" Then Exit Sub zz = Left(zz, Len(zz) - 1) Range(zz).Select MsgBox i & " cellule(s) à revoir"
Youky
Bonsoir Sylvie,
For Each c In Range("A1", [A1].End(xlDown)) 'ou une autre plage
If c.NumberFormat = "@" Then
i = i + 1
zz = zz & c.Address & ","
End If
Next
If zz = "" Then Exit Sub
zz = Left(zz, Len(zz) - 1)
Range(zz).Select
MsgBox i & " cellule(s) à revoir"
For Each c In Range("A1", [A1].End(xlDown)) 'ou une autre plage If c.NumberFormat = "@" Then i = i + 1 zz = zz & c.Address & "," End If Next If zz = "" Then Exit Sub zz = Left(zz, Len(zz) - 1) Range(zz).Select MsgBox i & " cellule(s) à revoir"
Youky
Syl VBA
Merci YoukY,
cela fonctionne très bien
n'y a t'il pas un moyen par Specialcells ?
En tout cas je peux travailler tranquille
Bonne journée et au plaisir
Syl VBA "Youky" a écrit dans le message de news:%
Bonsoir Sylvie,
For Each c In Range("A1", [A1].End(xlDown)) 'ou une autre plage If c.NumberFormat = "@" Then i = i + 1 zz = zz & c.Address & "," End If Next If zz = "" Then Exit Sub zz = Left(zz, Len(zz) - 1) Range(zz).Select MsgBox i & " cellule(s) à revoir"
Youky
Merci YoukY,
cela fonctionne très bien
n'y a t'il pas un moyen par Specialcells ?
En tout cas je peux travailler tranquille
Bonne journée et au plaisir
Syl VBA
"Youky" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de
news:%23e9B0ZHOJHA.3804@TK2MSFTNGP03.phx.gbl...
Bonsoir Sylvie,
For Each c In Range("A1", [A1].End(xlDown)) 'ou une autre plage
If c.NumberFormat = "@" Then
i = i + 1
zz = zz & c.Address & ","
End If
Next
If zz = "" Then Exit Sub
zz = Left(zz, Len(zz) - 1)
Range(zz).Select
MsgBox i & " cellule(s) à revoir"
For Each c In Range("A1", [A1].End(xlDown)) 'ou une autre plage If c.NumberFormat = "@" Then i = i + 1 zz = zz & c.Address & "," End If Next If zz = "" Then Exit Sub zz = Left(zz, Len(zz) - 1) Range(zz).Select MsgBox i & " cellule(s) à revoir"