Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Incrémenter nom de Range dans macro

Incrémenter nom de Range dans macro

2 réponses
Avatar
Jean-Paul V
Bonjour à tous

but généraliser une macro qq soit le nombre de champs Cfoncék ou k est une
variable

J’ai cette macro que je voudrais modifier :
Sub RetourFoncé()
Range("Cfoncé1").Select
With Selection.Interior
.ColorIndex = 11
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("Cfoncé2").Select
With Selection.Interior
.ColorIndex = 11
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
…ect

J’ai essayé différentes versions qui ne marchent quelle est la solution ?

Sub àmodifier() 'but généraliser les macros qq soit le nombre de champs
On Error Resume Next
For k = 1 To 12
' Range & "(" & Cfoncék & ")".Select
' ThisWorkbook.Sheets.Application.Range.Select( Range & "(" & Cfoncék
& ")".Select
' Application.Range.Select (Range & "(" & Cfoncék & ")")
' Application.Range.Select ( Range ( """ & Cfoncék & """)
Application.Range.Select ( Range (" & "Cfoncé" & k & "" ")
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next
End Sub



@+ j’espère

--
Jean-Paul V
Signaler un problème avec ce contenu

2 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
Francois L
Jean-Paul V a écrit :

Bonjour,

Un petit exemple avec des cellules nommées tt1 à tt3

Sub zaza()
For i = 1 To 3
With Range("tt" & i)
.Interior.ColorIndex = 11
End With
Next
End Sub

--
François L



Bonjour à tous

but généraliser une macro qq soit le nombre de champs Cfoncék ou k est une
variable

J’ai cette macro que je voudrais modifier :
Sub RetourFoncé()
Range("Cfoncé1").Select
With Selection.Interior
.ColorIndex = 11
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("Cfoncé2").Select
With Selection.Interior
.ColorIndex = 11
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
…ect

J’ai essayé différentes versions qui ne marchent quelle est la solution ?

Sub àmodifier() 'but généraliser les macros qq soit le nombre de champs
On Error Resume Next
For k = 1 To 12
' Range & "(" & Cfoncék & ")".Select
' ThisWorkbook.Sheets.Application.Range.Select( Range & "(" & Cfoncék
& ")".Select
' Application.Range.Select (Range & "(" & Cfoncék & ")")
' Application.Range.Select ( Range ( """ & Cfoncék & """)
Application.Range.Select ( Range (" & "Cfoncé" & k & "" ")
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next
End Sub



@+ j’espère



Avatar
Jean-Paul V
ça marche merci François ! ! !
--
Jean-Paul V


"Francois L" wrote:

Jean-Paul V a écrit :

Bonjour,

Un petit exemple avec des cellules nommées tt1 à tt3

Sub zaza()
For i = 1 To 3
With Range("tt" & i)
.Interior.ColorIndex = 11
End With
Next
End Sub

--
François L



> Bonjour à tous
>
> but généraliser une macro qq soit le nombre de champs Cfoncék ou k est une
> variable
>
> J’ai cette macro que je voudrais modifier :
> Sub RetourFoncé()
> Range("Cfoncé1").Select
> With Selection.Interior
> .ColorIndex = 11
> .Pattern = xlSolid
> .PatternColorIndex = xlAutomatic
> End With
> Range("Cfoncé2").Select
> With Selection.Interior
> .ColorIndex = 11
> .Pattern = xlSolid
> .PatternColorIndex = xlAutomatic
> End With
> …ect
>
> J’ai essayé différentes versions qui ne marchent quelle est la solution ?
>
> Sub àmodifier() 'but généraliser les macros qq soit le nombre de champs
> On Error Resume Next
> For k = 1 To 12
> ' Range & "(" & Cfoncék & ")".Select
> ' ThisWorkbook.Sheets.Application.Range.Select( Range & "(" & Cfoncék
> & ")".Select
> ' Application.Range.Select (Range & "(" & Cfoncék & ")")
> ' Application.Range.Select ( Range ( """ & Cfoncék & """)
> Application.Range.Select ( Range (" & "Cfoncé" & k & "" ")
> With Selection.Interior
> .ColorIndex = 1
> .Pattern = xlSolid
> .PatternColorIndex = xlAutomatic
> End With
> Next
> End Sub
>
>
>
> @+ j’espère
>