Salut Max, "NumberFormat" te retourne le formatage utilisé, il te suffit de construire ta proc en fonction de ton ou tes formats personnalisés :
Sub QuelFormat() MsgBox Range("A1").NumberFormat End Sub
Hervé.
"Max" a écrit dans le message de news: %
Bonjour,
Est-il possible de sélectionner par VBA des cellules en fonction de leur format personnalisé ?
Et si oui, comment ?
Merci d'avance
Max
Jacky
Bonjour, Amha, ce n'est pas une bonne méthode. Mais bon... Pour un format dans ce Style: "XXX"@ par exemple et dans la sélection en cours. Ceci: '-------- Sub jj() For Each c In Selection If c.NumberFormat = """XXX""@" Then c.Select Next End Sub '-------- Salutations JJ
"Max" a écrit dans le message de news:%
Bonjour,
Est-il possible de sélectionner par VBA des cellules en fonction de leur format personnalisé ?
Et si oui, comment ?
Merci d'avance
Max
Bonjour,
Amha, ce n'est pas une bonne méthode.
Mais bon...
Pour un format dans ce Style: "XXX"@ par exemple
et dans la sélection en cours.
Ceci:
'--------
Sub jj()
For Each c In Selection
If c.NumberFormat = """XXX""@" Then c.Select
Next
End Sub
'--------
Salutations
JJ
"Max" <nospam-max@wanadoo.fr> a écrit dans le message de
news:%23glALakhGHA.5096@TK2MSFTNGP02.phx.gbl...
Bonjour,
Est-il possible de sélectionner par VBA des cellules en fonction de leur
format personnalisé ?
Bonjour, Amha, ce n'est pas une bonne méthode. Mais bon... Pour un format dans ce Style: "XXX"@ par exemple et dans la sélection en cours. Ceci: '-------- Sub jj() For Each c In Selection If c.NumberFormat = """XXX""@" Then c.Select Next End Sub '-------- Salutations JJ
"Max" a écrit dans le message de news:%
Bonjour,
Est-il possible de sélectionner par VBA des cellules en fonction de leur format personnalisé ?
Et si oui, comment ?
Merci d'avance
Max
Max
Bonjour Jacky et Hervé Ce que je veux, c'est de sélectionner toutes les cellules d'un certain format, mais j'ai finalement trouve en modifiant légèrement la proc de Frédérig Sigonneau suivante:
Sub SelectFormat() Dim S$, cell As Range For Each cell In ActiveSheet.UsedRange If cell.NumberFormatLocal = "0;-0" Then _ S = S & cell.Address & "," Next S = Left(S, Len(S) - 1): Range(S).Select End Sub 'fs mais qui se plante chez moi à la dernière ligne
Ma solution c'est: Sub SélectionnerMonFormat() Dim c, A 'c pour cellule, A pour adresse For Each c In ActiveSheet.UsedRange If c.NumberFormat = "0;-0" Then A = A & c.Address & "," End If Next A = Left(A, Len(A) - 1): Range(A).Select End Sub
Merci à tous les deux. (Bon, j'aurai dû chercher un peu avant de crier au secours.) Salut Max
"Jacky" a écrit dans le message de news:
Bonjour, Amha, ce n'est pas une bonne méthode. Mais bon... Pour un format dans ce Style: "XXX"@ par exemple et dans la sélection en cours. Ceci: '-------- Sub jj() For Each c In Selection If c.NumberFormat = """XXX""@" Then c.Select Next End Sub '-------- Salutations JJ
"Max" a écrit dans le message de news:%
Bonjour,
Est-il possible de sélectionner par VBA des cellules en fonction de leur format personnalisé ?
Et si oui, comment ?
Merci d'avance
Max
Bonjour Jacky et Hervé
Ce que je veux, c'est de sélectionner toutes les cellules d'un certain
format, mais j'ai finalement trouve en modifiant légèrement la proc de
Frédérig Sigonneau suivante:
Sub SelectFormat()
Dim S$, cell As Range
For Each cell In ActiveSheet.UsedRange
If cell.NumberFormatLocal = "0;-0" Then _
S = S & cell.Address & ","
Next
S = Left(S, Len(S) - 1): Range(S).Select
End Sub 'fs
mais qui se plante chez moi à la dernière ligne
Ma solution c'est:
Sub SélectionnerMonFormat()
Dim c, A 'c pour cellule, A pour adresse
For Each c In ActiveSheet.UsedRange
If c.NumberFormat = "0;-0" Then
A = A & c.Address & ","
End If
Next
A = Left(A, Len(A) - 1): Range(A).Select
End Sub
Merci à tous les deux. (Bon, j'aurai dû chercher un peu avant de crier au
secours.)
Salut
Max
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
OswabNlhGHA.764@TK2MSFTNGP03.phx.gbl...
Bonjour,
Amha, ce n'est pas une bonne méthode.
Mais bon...
Pour un format dans ce Style: "XXX"@ par exemple
et dans la sélection en cours.
Ceci:
'--------
Sub jj()
For Each c In Selection
If c.NumberFormat = """XXX""@" Then c.Select
Next
End Sub
'--------
Salutations
JJ
"Max" <nospam-max@wanadoo.fr> a écrit dans le message de
news:%23glALakhGHA.5096@TK2MSFTNGP02.phx.gbl...
Bonjour,
Est-il possible de sélectionner par VBA des cellules en fonction de leur
format personnalisé ?
Bonjour Jacky et Hervé Ce que je veux, c'est de sélectionner toutes les cellules d'un certain format, mais j'ai finalement trouve en modifiant légèrement la proc de Frédérig Sigonneau suivante:
Sub SelectFormat() Dim S$, cell As Range For Each cell In ActiveSheet.UsedRange If cell.NumberFormatLocal = "0;-0" Then _ S = S & cell.Address & "," Next S = Left(S, Len(S) - 1): Range(S).Select End Sub 'fs mais qui se plante chez moi à la dernière ligne
Ma solution c'est: Sub SélectionnerMonFormat() Dim c, A 'c pour cellule, A pour adresse For Each c In ActiveSheet.UsedRange If c.NumberFormat = "0;-0" Then A = A & c.Address & "," End If Next A = Left(A, Len(A) - 1): Range(A).Select End Sub
Merci à tous les deux. (Bon, j'aurai dû chercher un peu avant de crier au secours.) Salut Max
"Jacky" a écrit dans le message de news:
Bonjour, Amha, ce n'est pas une bonne méthode. Mais bon... Pour un format dans ce Style: "XXX"@ par exemple et dans la sélection en cours. Ceci: '-------- Sub jj() For Each c In Selection If c.NumberFormat = """XXX""@" Then c.Select Next End Sub '-------- Salutations JJ
"Max" a écrit dans le message de news:%
Bonjour,
Est-il possible de sélectionner par VBA des cellules en fonction de leur format personnalisé ?
