Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fonction Range avec une variable

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion max_31
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

max_31

Guest
Bonjour tout le monde,

Je pense qu'il doit y avoir un moyen de simplifier le code suivant, mais je ne sais pas comment faire :
With Worksheets("Previsions")
.Range("H" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("I" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("J" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("K" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("L" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("M" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("N" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("O" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("P" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("Q" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("Q" & Compteur_ligne_Previsions) = "Non recherché"
End With

"Compteur_ligne_Previsions" étant une variable

Les forumers auraient ils une idée ?

Merci d'avance.

PS : j'ai essayé .range("H" & Compteur_ligne_Previsions : "Q" & Compteur_ligne_Previsions).... Mais cela n'a pas fonctionner...
 
Trier par date Trier par votes
Re : Fonction Range avec une variable

Merci beaucoup jmps,

Ca marche très bien.

Mais etant novice, j'aurais 2 questions :
- Pourquoi doit on commencer par i =72 pour la colonne H ?
- Est ce plus rapide de passer par la boucle que tu proposes que par la programmation que j'avais faite initialement ?

Et sinon est ce possible de le faire sans boucle ?
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Fonction Range avec une variable

Bonjour max_31, jmps, le Forum,

Dans ce cas précis, on devrait peut-être éviter la boucle.

Ci-dessous, 2 autres façons de procéder :
Code: 
[SIZE=2]Dim Compteur_ligne_Previsions[COLOR=navy] As Long[/COLOR]
      ...
      [COLOR=navy]With[/COLOR] Worksheets("Previsions")
            .Range(.Cells(Compteur_ligne_Previsions, 8), .Cells(Compteur_ligne_Previsions, 17)) _
                        .Interior.ColorIndex = 33
            .Range("Q" & Compteur_ligne_Previsions) = "Non recherché"
      [COLOR=navy]End[/COLOR] With[/SIZE]
ou
Code: 
[SIZE=2]Dim Compteur_ligne_Previsions[COLOR=navy] As Long[/COLOR]
      ...
      [COLOR=navy]With[/COLOR] Worksheets("Previsions")
            .Range("H" & Compteur_ligne_Previsions & ":Q" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
            .Range("Q" & Compteur_ligne_Previsions) = "Non recherché"
      [COLOR=navy]End[/COLOR] With[/SIZE]
Un conseil également : tu devrais peut-être aussi essayer de raccourcir un peu tes noms de variable...

Cordialement,
 
Vote positif 0 Vote négatif
Re : Fonction Range avec une variable

Merci pour les précisions jmps. Je me doutais que c'etait ca, mais la j'en ai la confirmation.
Merci mDF pour ta proposition. J'avais oublie quelques details dans mon champ.
Pour ce qui est des noms de variables, j'ai essaye d'etre explicite, car j'en ai beaucoup dans mon code (peut etre trop...), mais je voulais pouvoir m'y retrouver.

Merci pour votre aide.
 
Vote positif 0 Vote négatif
Re : Fonction Range avec une variable

J'ai appliqué la methode de mFD, pour eviter la boucle.
Quand je l'applique a de la mise en forme, c'est nickel.
Par contre, quand je souhaite affecter des valeurs, ca ne fonctionne pas :
voila le code rentré:

Worksheets("Feuil1").Range("N" & i & "😛" & i) = Worksheets("RA").Range("C" & j & ":E" & j)

i, etant le numero de ligne de destination
j, etant le numero de ligne d'origine


En revanche, quand je tape le code suivant, ca fonctionne :
Worksheets("Feuil1").Range("N" & i) = Worksheets("RA").Range("C" & j)
Worksheets("Feuil1").Range("O" & i) = Worksheets("RA").Range("D" & j)
Worksheets("Feuil1").Range("P" & i) = Worksheets("RA").Range("E" & j)

Quelqu'un peut il me dire si je fais une erreur dans le 1er code, ou si ce que je souhaite n'est pas faisable ?

Merci d'avance.
 
Vote positif 0 Vote négatif
Re : Fonction Range avec une variable

Re,

Tu peux essayer comme ça :
Code: 
[SIZE=2]Worksheets("Feuil1").Range("N" & i & ":P" & i)[B].Value[/B] = Worksheets("RA").Range("C" & j & ":E" & j)[B].Value[/B][/SIZE]
Cordialement,
 
Vote positif 0 Vote négatif
Re : Fonction Range avec une variable

Merci beaucoup.
Ca marche.
Mais je suis etonne que cela ne fonctionne pas directement sans le .Value, puisque je croyais que c'etait l'instruction par defaut...
Enfin l'essentiel c'est que maintenant ca tourne.
Merci encore mDF
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
2 K
AtTheOne
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
375
StéphaneDeLà
S
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
877
piga25
B
  • Question Question
Microsoft 365 Additionner des cellules même ligne en userform vba
Réponses
13
Affichages
969
sousou
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
830
crazy
C
M
  • Question Question
XL 2016 Trier chaine de caractères dans une cellule
2
Réponses
20
Affichages
2 K
patricktoulon
F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
761
Francky79
F
G
  • Question Question
Microsoft 365 Export données d'une listview
Réponses
5
Affichages
750
GClaire
G
P
  • Question Question
XL 2019 VBA Erreur d'exécution "9" dans une plage de tableau
Réponses
2
Affichages
638
piskely
P
J
  • Question Question
XL 2016 Listbox et valeur associée
2
Réponses
16
Affichages
1 K
jozerebel
J
A
  • Question Question
XL 2016 Sous-totaux ou WorksheetFunction.Sum
Réponses
2
Affichages
841
Aldonanou
A
P
  • Résolu(e)
erreur d'exécution "9" vba sur plage
Réponses
3
Affichages
929
piskely
P
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
M
  • Résolu(e)
XL 2016 envoi de mail en automatique en fonction de plusieurs menus deroulants
2
Réponses
26
Affichages
2 K
mathieu20
M
B
  • Question Question
Microsoft 365 liste à choix multiples avec contenu variable
Réponses
3
Affichages
772
BER6543
B
I
  • Question Question
XL 2016 Mon code VBA me renvoi une erreur
Réponses
6
Affichages
937
INFINITY100
I
V
  • Résolu(e)
Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for
2 3
Réponses
39
Affichages
3 K
vincent32
V
J
  • Question Question
XL 2019 probleme Sheets("entreeor").ListObjects(1).ListRows.Add
Réponses
11
Affichages
2 K
Gégé-45550
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…