Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Tester l'attribut d'une police

Tester l'attribut d'une police

5 réponses
Avatar
Joke
Salut,
Je suis novice en excel...
J'ai un tableau avec pas mal de colonnes qui référencent les infos des
utilisateurs.
Certaines infos sont barrées, d'autres non.
Est il possible de tester par ligne si la ligne comporte au moins une
cellule barrée ?

Merci d'avance, j'ai pas mal cherché mais en vain.

Joel
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
MichDenis
Tu dois tester chacune des cellules de chacune de tes lignes
ça donnerait une procédure semblable à ceci :


Soit la plage A1:G5

for each R in Range("A1:G5").Rows
For each c in R
if c.font.Strikethrough =True
Msgbox "au moins une cellule de la ligne " & R.row & _
" est barrée."
exit for
end if
Next
Next



"Joke" <joke_mail.com> a écrit dans le message de news:
Salut,
Je suis novice en excel...
J'ai un tableau avec pas mal de colonnes qui référencent les infos des
utilisateurs.
Certaines infos sont barrées, d'autres non.
Est il possible de tester par ligne si la ligne comporte au moins une
cellule barrée ?

Merci d'avance, j'ai pas mal cherché mais en vain.

Joel
Avatar
MichDenis
Il y a une coquille que ceci corrigera :


Dim R As Range
Dim C As Range
For Each R In Range("A1:G5").Rows
For Each C In R.Cells
If C.Font.Strikethrough = True Then
MsgBox "au moins une cellule de la ligne " & R.Row & _
" est barrée."
Exit For
End If
Next
Next





"MichDenis" a écrit dans le message de news:
%
Tu dois tester chacune des cellules de chacune de tes lignes
ça donnerait une procédure semblable à ceci :


Soit la plage A1:G5

for each R in Range("A1:G5").Rows
For each c in R
if c.font.Strikethrough =True
Msgbox "au moins une cellule de la ligne " & R.row & _
" est barrée."
exit for
end if
Next
Next



"Joke" <joke_mail.com> a écrit dans le message de news:
Salut,
Je suis novice en excel...
J'ai un tableau avec pas mal de colonnes qui référencent les infos des
utilisateurs.
Certaines infos sont barrées, d'autres non.
Est il possible de tester par ligne si la ligne comporte au moins une
cellule barrée ?

Merci d'avance, j'ai pas mal cherché mais en vain.

Joel
Avatar
Joke
Merci ça marche bien.
Comment pourrais faire pour inscrire dans la colonne A si la ligne comporte
une cellule barrée au lieu d'un pop up?

Dim R As Range
Dim C As Range
For Each R In Range("B2:Q3365").Rows
For Each C In R.Cells
If C.Font.Strikethrough = True Then
MsgBox "au moins une cellule de la ligne " & R.Row & _
" est barrée."
Exit For
End If
Next
Next





"MichDenis" a écrit dans le message de
news:eg$2%
Il y a une coquille que ceci corrigera :


Dim R As Range
Dim C As Range
For Each R In Range("A1:G5").Rows
For Each C In R.Cells
If C.Font.Strikethrough = True Then
MsgBox "au moins une cellule de la ligne " & R.Row & _
" est barrée."
Exit For
End If
Next
Next





"MichDenis" a écrit dans le message de news:
%
Tu dois tester chacune des cellules de chacune de tes lignes
ça donnerait une procédure semblable à ceci :


Soit la plage A1:G5

for each R in Range("A1:G5").Rows
For each c in R
if c.font.Strikethrough =True
Msgbox "au moins une cellule de la ligne " & R.row & _
" est barrée."
exit for
end if
Next
Next



"Joke" <joke_mail.com> a écrit dans le message de news:


Salut,
Je suis novice en excel...
J'ai un tableau avec pas mal de colonnes qui référencent les infos des
utilisateurs.
Certaines infos sont barrées, d'autres non.
Est il possible de tester par ligne si la ligne comporte au moins une
cellule barrée ?

Merci d'avance, j'ai pas mal cherché mais en vain.

Joel






Avatar
MichDenis
Seule où une des cellules de la ligne est barrée,
dans la colonne A s'inscrira le mot "Barrée" si non
la cellule de la colonne A de la ligne testée demeurera vide.

Dim R As Range
Dim C As Range
For Each R In Range("B2:Q3365").Rows
For Each C In R.Cells
If C.Font.Strikethrough = True Then
Range("A" & c.Row) = "Barrée"
Exit For
End If
Next
Next



"Joke" <joke_mail.com> a écrit dans le message de news: %
Merci ça marche bien.
Comment pourrais faire pour inscrire dans la colonne A si la ligne comporte
une cellule barrée au lieu d'un pop up?

Dim R As Range
Dim C As Range
For Each R In Range("B2:Q3365").Rows
For Each C In R.Cells
If C.Font.Strikethrough = True Then
MsgBox "au moins une cellule de la ligne " & R.Row & _
" est barrée."
Exit For
End If
Next
Next





"MichDenis" a écrit dans le message de
news:eg$2%
Il y a une coquille que ceci corrigera :


Dim R As Range
Dim C As Range
For Each R In Range("A1:G5").Rows
For Each C In R.Cells
If C.Font.Strikethrough = True Then
MsgBox "au moins une cellule de la ligne " & R.Row & _
" est barrée."
Exit For
End If
Next
Next





"MichDenis" a écrit dans le message de news:
%
Tu dois tester chacune des cellules de chacune de tes lignes
ça donnerait une procédure semblable à ceci :


Soit la plage A1:G5

for each R in Range("A1:G5").Rows
For each c in R
if c.font.Strikethrough =True
Msgbox "au moins une cellule de la ligne " & R.row & _
" est barrée."
exit for
end if
Next
Next



"Joke" <joke_mail.com> a écrit dans le message de news:


Salut,
Je suis novice en excel...
J'ai un tableau avec pas mal de colonnes qui référencent les infos des
utilisateurs.
Certaines infos sont barrées, d'autres non.
Est il possible de tester par ligne si la ligne comporte au moins une
cellule barrée ?

Merci d'avance, j'ai pas mal cherché mais en vain.

Joel






Avatar
Joke
Royal !!!!


Merci beaucoup !!

Joel


"MichDenis" a écrit dans le message de
news:
Seule où une des cellules de la ligne est barrée,
dans la colonne A s'inscrira le mot "Barrée" si non
la cellule de la colonne A de la ligne testée demeurera vide.

Dim R As Range
Dim C As Range
For Each R In Range("B2:Q3365").Rows
For Each C In R.Cells
If C.Font.Strikethrough = True Then
Range("A" & c.Row) = "Barrée"
Exit For
End If
Next
Next



"Joke" <joke_mail.com> a écrit dans le message de news:
%

Merci ça marche bien.
Comment pourrais faire pour inscrire dans la colonne A si la ligne
comporte

une cellule barrée au lieu d'un pop up?

Dim R As Range
Dim C As Range
For Each R In Range("B2:Q3365").Rows
For Each C In R.Cells
If C.Font.Strikethrough = True Then
MsgBox "au moins une cellule de la ligne " & R.Row & _
" est barrée."
Exit For
End If
Next
Next





"MichDenis" a écrit dans le message de
news:eg$2%
Il y a une coquille que ceci corrigera :


Dim R As Range
Dim C As Range
For Each R In Range("A1:G5").Rows
For Each C In R.Cells
If C.Font.Strikethrough = True Then
MsgBox "au moins une cellule de la ligne " & R.Row & _
" est barrée."
Exit For
End If
Next
Next





"MichDenis" a écrit dans le message de news:
%
Tu dois tester chacune des cellules de chacune de tes lignes
ça donnerait une procédure semblable à ceci :


Soit la plage A1:G5

for each R in Range("A1:G5").Rows
For each c in R
if c.font.Strikethrough =True
Msgbox "au moins une cellule de la ligne " & R.row & _
" est barrée."
exit for
end if
Next
Next



"Joke" <joke_mail.com> a écrit dans le message de news:


Salut,
Je suis novice en excel...
J'ai un tableau avec pas mal de colonnes qui référencent les infos des
utilisateurs.
Certaines infos sont barrées, d'autres non.
Est il possible de tester par ligne si la ligne comporte au moins une
cellule barrée ?

Merci d'avance, j'ai pas mal cherché mais en vain.

Joel