En VBA, je n'arrive pas à changer la police, sa couleur, dans la cellule :
ir.Cells(3) décrite dans la séquence ci-dessous :
où :
Dim ir As Range
et
For Each ir In
ThisWorkbook.Sheets("résolutions").Range("A1").CurrentRegion.rows
If ir.Cells(1) = cboQuestion Then
ir.Cells(3) = "rejetée"
Exit For 'fin recherche
End If
Net
Pourriez-vous m'apporter votre aide, peut-être faut-il revoir les
définitions et la programmation.
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
Greffier
Bonjour,
J'ai trouvé,
For Each ir In ThisWorkbook.Sheets("résolutions").Range("A1").CurrentRegion.rows If ir.Cells(1) = cboQuestion Then ir.Cells(3) = "rejetée" ir.Cells(3).Font.Bold = True ir.Cells(3).Font.Name = "Arial" ir.Cells(3).Font.Size = 10 ir.Cells(3).Font.ColorIndex = 3 Exit For 'fin recherche
Merci, et excusez-moi.
Greffier.
"Greffier" a écrit dans le message de news:
Bonjour,
En VBA, je n'arrive pas à changer la police, sa couleur, dans la cellule : ir.Cells(3) décrite dans la séquence ci-dessous : où : Dim ir As Range
et
For Each ir In ThisWorkbook.Sheets("résolutions").Range("A1").CurrentRegion.rows If ir.Cells(1) = cboQuestion Then ir.Cells(3) = "rejetée" Exit For 'fin recherche End If Net
Pourriez-vous m'apporter votre aide, peut-être faut-il revoir les définitions et la programmation.
Merci pour toutes vos suggestions.
Greffier.
Bonjour,
J'ai trouvé,
For Each ir In
ThisWorkbook.Sheets("résolutions").Range("A1").CurrentRegion.rows
If ir.Cells(1) = cboQuestion Then
ir.Cells(3) = "rejetée"
ir.Cells(3).Font.Bold = True
ir.Cells(3).Font.Name = "Arial"
ir.Cells(3).Font.Size = 10
ir.Cells(3).Font.ColorIndex = 3
Exit For 'fin recherche
Merci, et excusez-moi.
Greffier.
"Greffier" <spam@spam.fr> a écrit dans le message de news:
e9SOFtKfJHA.5572@TK2MSFTNGP02.phx.gbl...
Bonjour,
En VBA, je n'arrive pas à changer la police, sa couleur, dans la cellule :
ir.Cells(3) décrite dans la séquence ci-dessous :
où :
Dim ir As Range
et
For Each ir In
ThisWorkbook.Sheets("résolutions").Range("A1").CurrentRegion.rows
If ir.Cells(1) = cboQuestion Then
ir.Cells(3) = "rejetée"
Exit For 'fin recherche
End If
Net
Pourriez-vous m'apporter votre aide, peut-être faut-il revoir les
définitions et la programmation.
For Each ir In ThisWorkbook.Sheets("résolutions").Range("A1").CurrentRegion.rows If ir.Cells(1) = cboQuestion Then ir.Cells(3) = "rejetée" ir.Cells(3).Font.Bold = True ir.Cells(3).Font.Name = "Arial" ir.Cells(3).Font.Size = 10 ir.Cells(3).Font.ColorIndex = 3 Exit For 'fin recherche
Merci, et excusez-moi.
Greffier.
"Greffier" a écrit dans le message de news:
Bonjour,
En VBA, je n'arrive pas à changer la police, sa couleur, dans la cellule : ir.Cells(3) décrite dans la séquence ci-dessous : où : Dim ir As Range
et
For Each ir In ThisWorkbook.Sheets("résolutions").Range("A1").CurrentRegion.rows If ir.Cells(1) = cboQuestion Then ir.Cells(3) = "rejetée" Exit For 'fin recherche End If Net
Pourriez-vous m'apporter votre aide, peut-être faut-il revoir les définitions et la programmation.