Incrémenter nom de Range dans macro

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Francois L
Le #16502901
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



Jean-Paul V
Le #16503281
ç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
>



Publicité
Poster une réponse
Anonyme