Range sur une plage de cellule avec ligne variable VBA

Bonjour,

J'ai un petit problème qui doit être sans doute très simple à résoudre :

Dans mon code VBA je voudrais sectionné une plage de cellule pour cela j'utilise :

Code:

---

range("B4:K4").Select

---

sauf que dans ma situation je voudrai que la ligne soit définit par une variable :

Code:

---

1 2 3

Dim LIGNE As Byte LIGNE = Range("G14").Value Range("B" & LIGNE & ":" & "K" & LIGNE).Select

---

C'est la que je n'arrive plus, lorsque que je le fais avec une cellule ça marche mais avec une plage de cellule ça ne marche pas.

Merci d'avance pour votre aide,
Cordialement.
Nheude.

Bonjour,

Il faudrait voir ce que retourne ta variable LIGNE

Plutôt que Byte, aussi bien y aller avec Long.
Les systèmes d'aujourd'hui sont beaucoup plus performants qu'il y a 20 ans...
Et quand on parle de lignes, on parle de millions possibles, donc Long

Ceci devrait fonctionner si LIGNE renvoie bien un nombre

Code:

---

Range("B" & LIGNE & ":K" & LIGNE).Select

---

Ceci dit, évite les Select lorsque possible, soit à peu près toujours ;)

Bonsoir Nheude, bonsoir le forum,

To code est tout a fait correct, toutefois la déclaration de la variable LIGNE comme byte limite à la ligne 255. Si tu dois aller au-delà il faut la déclarer comme Integer. Que signifie : ça ne marche pas ?

hello,
tu peux égalemment travailler avec "Cells(x,x)" qui permet de remplacer les deux "x" par des variables par exemple "Ligne, Colonne" pour facilité la lecture du code ou comme dans l'exemple ci-dessous uniquement le "x" des colonnes.

Code:

---

1 2 3

dim Colonne as byte Colonne=Range("G14").value Range(Cells(2,Colonne),Cells(11,Colonne))

---

attention de bien mettre "," entre les deux Cells et non pas ";" sinon cel ne fonctionne pas!

Bonjour,

ou avec Offset :

Code:

---

1 2 3

Dim ligne as Long ligne=Range("G14").Value range("B1:K1").offset(ligne-1).Select

---

Pour enfoncer un peu plus le clou :-) les .select sont à éviter quand on peut, c'est à dire dans 99% des cas.
eric

Bonjour,

Première chose : sauf si absolument nécessaire, bannir les .Select et .Activate.

Il y a plusieurs façons de faire ce que tu veux.

Code:

---

1 2 3 4 5 6 7

' exemple : Dim Ligne, Colonne As Integer ActiveSheet.Cells(Ligne, Colonne). Select 'une cellule de coordonnées (Ligne ; Colonne) est sélectionnée ActiveSheet.Range(ActiveSheet.Cells(1,1), ActiveSheet.Cells(Ligne, Colonne)).Select 'une plage allant de la cellule A1 à la cellule de coordonnées (Ligne ; Colonne) est sélectionnée   ActiveSheet.Range("A" & Ligne).Select 'sélectionne la cellule de coordonnées (Ligne ; 1) ActiveSheet.Range(ActiveSheet.Range("A1"), ActiveSheet.Range("C" & Ligne)).Select 'sélectionne une plage allant de la cellule A1 à la cellule de coordonnées (Ligne ; 3)

---

J'espère que cela t'aide. Je compléterai si besoin avec d'autres exemples. Je te suggère de lire la documentation MSDN également

bonjour,
vos messages m’interpelle;

Citation:

---

Envoyé par Nagel Tha

Première chose : sauf si absolument nécessaire, bannir les .Select et .Activate.

Il y a plusieurs façons de faire ce que tu veux.

ActiveSheet.Range(ActiveSheet.Cells(1,1), ActiveSheet.Cells(Ligne, Colonne)).Select 'une plage allant de la cellule A1 à la cellule de coordonnées (Ligne ; Colonne) est sélectionnée

---

j'ai l'impression que vous vous contredite; ne pas employer .Select et les solutions que vous proposez sont toutes avec des .Select 8O
ai-je loupé quelque chose, car personnellement je ne vois pas comment ne pas employer les .Select!
merci de vos éclaircissements :aie:.

Pas du tout.

La méthode .Select permet de sélectionner et sélectionner uniquement une cellule ou une plage de cellules. Mon exemple montre simplement comment sélectionner une cellule ou une plage de cellules de coordonnées variables et donc la méthode .Select y est nécessaire et inévitable.

En revanche dès lors que sur ces cellules ou plage de cellules, la sélection n'apportera rien, la méthode .Select deviendra inutile.

Ainsi pour modifier la valeur d'une cellule on peut écrire :

Code:

---

ActiveSheet.Cells(Ligne, Colonne).Value = Valeur

---

Car sélectionner la cellule n'apporte absolument rien dans ce cas.

En revanche, si vous souhaitez forcer la sélection sur une cellule après une action la méthode .Select devient justifiée. Par exemple :

Code:

---

If ActiveSheet.Cells(Ligne, Colonne).Value = Valeur1 Then ActiveSheet.Cells(Ligne + Valeur1, Colonne).Select

---

En écrivant votre code, il est donc important de se demander si telle ou telle ligne de code est absolument nécessaire ou non. Si vous souhaitez modifier la valeur d'une cellule, .Select est donc à bannir sauf dans le cas où l'action suivante de l'utilisateur le justifie.

Bonsoir,

Citation:

---

j'ai l'impression que vous vous contredite; ne pas employer .Select et les solutions que vous proposez sont toutes avec des .Select

---

Il ne faut pas confondre le fait de vouloir sélectionner une plage évidemment avec .select et utiliser inutilement . select,qui ralenti la sauce ,
voir ci dessous les trois macros qui font toutes les trois la même chose.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Macro1() Range("A4").Select Selection.Copy Range("A6").Select ActiveSheet.Paste End Sub   Sub Macro2() Range("A6").Value = Range("A4").Value End Sub   Sub Macro3() Range("A4").Copy Range("A6").PasteSpecial End Sub

---

Cordialement 8-)

merci à vous deux, comme cela c'est plus clair, je vais dorénavant construire mieux mes macros :)

Re
Par ailleurs, pour aller un peu plus loin, les deux macro ci-dessous font le même travail.
Vous êtes sur la feuille2, et vous voulez copier une cellule sur une autre dans la feuille trois.
La macro1 a base de .Select impose une sélection de feuilles de Feuil2 a Feuil3 avec retour sur Feuil2
Vous pourrez remarquer ainsi le pratique et la concision de la macro 2.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Macro1() Sheets("Feuil3").Select Range("A4").Select Selection.Copy Range("A6").Select ActiveSheet.Paste Sheets("Feuil2").Select End Sub   Sub Macro2() With Sheets("Feuil3") .Range("A6").Value = .Range("A4").Value End With End Sub

---

Cordialement 8-)

Salut

Il est aussi préférable de n'utiliser les activeSheet, activeWorkbook et compagnie uniquement sous la torture, le reste du temps il est préférable d'utiliser

Code:

---

1 2	ThisWorkbook.sheets("NomFeuil").range...

---

Ou tout autre écriture faisant apparaitre clairement sur quel classeur on travaille et sur quelle feuille on travaille

Ou encore le codename de la feuille
Feuil1.range(...
Pour modifier le codename de la feuille c'est ici
Pièce jointe 400189
Le code name de la feuille c'est l'équivalent d'une variable worksheet, ça revient au même que de faire

Code:

---

1 2 3

Dim MaFeuil as worksheet   Set MaFeuil = ThisWorkbook.sheets("NomFeuil")

---

Sauf que cette partie du Code, VBA c'est déjà chargé de l'écrire pour nous.

++
Qwaz

re,
encore une question :mrgreen:
je suis en train de mettre à jour une de mes macro pour supprimer les .Select et je tombe sur ce cas

Code:

---

1 2 3 4 5 6

With Sheets(Onglet(16)) If Now - Range("B1") > 1 Then TypeEquipe = InputBox("entrer 2 ou 3", "nbrs équipe", 2) Range("E1") = TypeEquipe End If End With

---

si je laisse comme cela le IF travaille sur l'onglet actif et non pas sur celui souhaité et si je mets un point devant le IF cela bug :weird:
est-ce un cas où il faut garder

Code:

---

Sheets(Onglet(16)).Select

---

?
merci d'avance de vos conseilles éclairés

Bonjour,

Exemple (regarde bien l'importance du point devant Range) :

Code:

---

1 2 3 4 5 6

With Sheets(1) 'se rapporte à la feuille 1 : .Range("A1").Value = "toto" 'se rapporte à la feuille active : Range("A1").Value = "titi" End With

---

A noter : toujours indiquer qu'elle propriété tu utilises... Dans l'exemple j'utilise la propriété Value des Range.

Citation:

---

Envoyé par Qwazerty

Salut

Il est aussi préférable de n'utiliser les activeSheet, activeWorkbook et compagnie uniquement sous la torture, le reste du temps il est préférable d'utiliser

Code:

---

1 2	ThisWorkbook.sheets("NomFeuil").range...

---

Ou tout autre écriture faisant apparaitre clairement sur quel classeur on travaille et sur quelle feuille on travaille

Ou encore le codename de la feuille
Feuil1.range(...
Pour modifier le codename de la feuille c'est ici
Pièce jointe 400189
Le code name de la feuille c'est l'équivalent d'une variable worksheet, ça revient au même que de faire

Code:

---

1 2 3

Dim MaFeuil as worksheet   Set MaFeuil = ThisWorkbook.sheets("NomFeuil")

---

Sauf que cette partie du Code, VBA c'est déjà chargé de l'écrire pour nous.

++
Qwaz

---

Cela dépend de l'endroit où tu mets ton code : ThisWorkbook implique que le code se trouve dans le même classeur que la ou les feuilles à modifier.

Citation:

---

Envoyé par Nagel Tha

Cela dépend de l'endroit où tu mets ton code : ThisWorkbook implique que le code se trouve dans le même classeur que la ou les feuilles à modifier.

---

Citation:

---

Envoyé par Qwazerty

Ou tout autre écriture faisant apparaitre clairement sur quel classeur on travaille

---

Te citer ne veut pas nécessairement dire que je suis en désaccord avec toi. D'ailleurs je pourrais tout aussi bien ne pas te citer et être en désaccord tout de même ou bien être d'accord sans pour autant te citer. Là il se trouve que je suis d'accord sur le fait qu'il faut préciser dès qu'une confusion est possible le classeur sur lequel on travaille si plusieurs classeurs sont ouverts ou même si l'on travaille sur plusieurs classeurs

Cependant j'ajoute une nuance : ActiveWorkbook ou ActiveSheet peuvent être utilisés sans problème si l'on travaille sur un seul classeur sous réserve de s'assurer qu'un seul classeur soit ouvert et permettent d'utiliser la macro sur plusieurs classeurs. En effet, si je souhaite utiliser ma macro sur plusieurs classeurs (non ouverts en même temps) sur des classeurs dont je ne connais pas forcément le nom à l'avance et qui même n'existent pas encore l'utilisation de ActiveWorkbook est très pratique. Jusque là je n'ai pas rencontré de problème en l'utilisant et pourvu qu'on prenne des précautions en programmant de manière systématique il ne va pas se produire n'importe quoi en lançant une macro.

Pour éviter tout problème, on peut fermer les autres classeurs que le classeur à modifier en demandant à l'utilisateur s'il veut les sauvegarder par exemple. On peut également demander à l'utilisateur de sélectionner le classeur ou la feuille à modifier ou de renseigner leurs noms.

Ce ne sont que des propositions. Il y a d'autres manières de faire. Par exemple ne modifier que les classeurs dont le nom comporte telle chaîne, portion de chaîne ou extension.

Je répète donc que je ne cite pas pour te corriger, mais pour dire qu'il y a d'autres manières de faire. Utiliser les codenames ou les noms des feuilles (si on les connaît à l'avance) est une bonne idée (et je le fais moi-même) mais encore une fois il y a plusieurs manières de faire et il est important de le dire.

Citation:

---

Te citer ne veut pas nécessairement dire que je suis en désaccord avec toi. D'ailleurs je pourrais tout aussi bien ne pas te citer et être en désaccord tout de même ou bien être d'accord sans pour autant te citer. Là il se trouve que je suis d'accord sur le fait qu'il faut préciser dès qu'une confusion est possible le classeur sur lequel on travaille si plusieurs classeurs sont ouverts ou même si l'on travaille sur plusieurs classeurs

---

Vu que l'utilisateur est souverain et ouvre autant de classeur qu'il veut sans que la macro ne le sache, autant préciser tout le temps.

Citation:

---

Cependant j'ajoute une nuance : ActiveWorkbook ou ActiveSheet peuvent être utilisés sans problème si l'on travaille sur un seul classeur sous réserve de s'assurer qu'un seul classeur soit ouvert et permettent d'utiliser la macro sur plusieurs classeurs. En effet, si je souhaite utiliser ma macro sur plusieurs classeurs (non ouverts en même temps) sur des classeurs dont je ne connais pas forcément le nom à l'avance et qui même n'existent pas encore l'utilisation de ActiveWorkbook est très pratique. Jusque là je n'ai pas rencontré de problème en l'utilisant et pourvu qu'on prenne des précautions en programmant de manière systématique il ne va pas se produire n'importe quoi en lançant une macro.

---

Le jour ou tu feras une macro avec un traitement de plusieurs 10ène de secondes ou que ta session d'excel va se mettre à ramer pour une raison x. L'utilisateur va vouloir cliquer un peu partout, ouvrir un autre classeur pour continuer à bosser pendant que ça "tourne" et bim.

La plupart des gens qui viennent demander de l'aide ici sont débutant donc autant qu'ils prennent les bonne habitude de suite et mettent en place des automatismes . Préciser Classeur Feuille range en est à mon avis un TRES important. Tu sembles visiblement très aguerrie en programmation et tu arrives donc à prendre en compte au file de l'eau les problèmes mais met toi à la place de ceux qui débutent et plutôt que de les inciter à prendre des habitudes les obligeant par la suite à contrôler tous un tas de paramètres qu'il est de plus très difficile à maitriser (nombre de classeur ouvert par exemple, à quel moment faire le test? En début de macro? mais si le traitement est plus long que prévu, qu'est ce qui empêche d'ouvrir d'autres classeurs?).

Il m'arrive de les utiliser mais il faut vraiment que j'y sois contraint et forcé. Le seul cas qui me vient en tête c'est lors de la copie d'une feuille vers un autre classeur. Copy ne renvoi pas l'objet worksheet de destination et oblige donc à utiliser activeworksheet. Mais je le fait à contre coeur à chaque fois.

Code:

---

Pour éviter tout problème, on peut fermer les autres classeurs que le classeur à modifier en demandant à l'utilisateur s'il veut les sauvegarder par exemple. On peut également demander à l'utilisateur de sélectionner le classeur ou la feuille à modifier ou de renseigner leurs noms.

---

Ça n'est pas ma politique. L'utilisateur est souverain, c'est le programmeur qui doit faire en sorte de parer à des "écarts" d'utilisations. En ce qui me concerne, je pense que bien programmer c'est ça. Faire un programme qui suit l'utilisateur et pas un programme qui le cantonne dans un couloir. Mais chacun sa vision des choses.

Code:

---

Ce ne sont que des propositions. Il y a d'autres manières de faire. Par exemple ne modifier que les classeurs dont le nom comporte telle chaîne, portion de chaîne ou extension.

---

Ça revient bien à préciser sur quel(s) classeur(s) on travailles. Non?

Citation:

---

Je répète donc que je ne cite pas pour te corriger, mais pour dire qu'il y a d'autres manières de faire. Utiliser les codenames ou les noms des feuilles (si on les connaît à l'avance) est une bonne idée (et je le fais moi-même) mais encore une fois il y a plusieurs manières de faire et il est important de le dire.

---

Il y a plusieurs manière de faire en effet dont certaines mènent, à mon avis, à des problèmes un jour ou l'autre.
Tu sais je ne dis pas ça pour t'agresser, je dis ça parce que ça fait maintenant un paquet d'année que je fais du code sur Excel et des soucis, j'en ai eu.
Des macros que j'ai mal écrites et qui m'ont bouffées des données sur d'autre classeurs j'ai déjà fait et si je peux l'éviter à d'autre en leur expliquant qu'on précise toujours sur quel classeur on travailles,je le répèterais autant de fois qu'il le faut. Et je serais vent debout contre les personne qui tiennent un discours disant qu'il suffit de tester "si y'a plusieurs classeurs", "si la macro est trop rapide pour qu'on puisse changer de classeur", "si...."
Autant faire simple, préciser le classeur ça coute 2 lignes de code avec un with ou avec une variable worksheet, pourquoi s'en priver.

++
Qwaz

re,

Citation:

---

Envoyé par pijaku

Exemple (regarde bien l'importance du point devant Range) :

Code:

---

1 2 3 4 5 6

With Sheets(1) 'se rapporte à la feuille 1 : .Range("A1").Value = "toto" 'se rapporte à la feuille active : Range("A1").Value = "titi" End With

---

A noter : toujours indiquer qu'elle propriété tu utilises... Dans l'exemple j'utilise la propriété Value des Range.

---

merci, mais cette partie du problème je l'avais compris :), la pertie que je ne comprends pas est comment faire pour que mon"IF" travaile sur le bon onglet sans employer de ".Select" ? (voir exemple plus haut)

Citation:

---

Le jour ou tu feras une macro avec un traitement de plusieurs 10ène de secondes ou que ta session d'excel va se mettre à ramer pour une raison x. L'utilisateur va vouloir cliquer un peu partout, ouvrir un autre classeur pour continuer à bosser pendant que ça "tourne" et bim.

---

Dans ces cas-là il vaut mieux afficher des messages, voire une barre de progression ou même pour faire un peu d'humour (si la situation le prête) inviter l'utilisateur à prendre sa pause à café. Il est aussi possible de bloquer les actions de l'utilisateur. Avant de livrer un code, il faut penser à tout (gestion de tous les boutons, des erreurs, des évènements imprévus...). On peut aussi estimer le temps de calcul et afficher un timer. Sachant que dix secondes c'est faible, j'ai déjà fait une macro qui traitait des centaines de classeur et prenait trente minutes ou plus pour le service informatique d'une des boîtes où j'ai fait un stage et là la solution c'était de gérer les boutons, commenter le code à fond, faire une démo aux personnes concernées et livrer une notice avec.

Citation:

---

Ça n'est pas ma politique. L'utilisateur est souverain, c'est le programmeur qui doit faire en sorte de parer à des "écarts" d'utilisations. En ce qui me concerne, je pense que bien programmer c'est ça. Faire un programme qui suit l'utilisateur et pas un programme qui le cantonne dans un couloir. Mais chacun sa vision des choses.

---

Il y a plusieurs façons de faire (sachant que fermer les classeurs est une façon de parer à ces écarts). Après on peut aussi imaginer mettre en pause la macro à certains moments pour laisser l'utilisateur faire des actions, mais étant donné que tu ne peux pas prévoir ce que l'utilisateur va faire en faisant cela tu vas t'exposer à d'autres problèmes et donc cela va t'obliger à rallonger considérablement ton code pour prévoir le plus possible. Sachant qu'un homme seul ne va pas penser à tout. L'utilisateur peut faire des écarts auxquels tu n'auras pas pensé. Le plus simple est de prévenir cela en limitant au moins un peu ce qu'il faut faire. En ce qui me concerne, je connais la programmation mais ce n'est pas mon métier ni ma formation donc je vais pas être capable ou alors je serais capable mais sans avoir le temps de faire aussi bien que toi si c'est ton métier ou que cela fait partie de ta formation.

Citation:

---

Ça revient bien à préciser sur quel(s) classeur(s) on travailles. Non?

---

Non car tu n'en connais pas le nom dans ce cas. Par exemple tu peux ne modifier que les classeurs dont le nom contient "MIAOU". Tu sélectionnes bien un ensemble réduit de classeurs mais tu ne désignes pas le nom exact (ce qui implique que l'utilisateur ne décide pas de créer un classeur contentant cette chaîne dans le même répertoire sinon tu auras un classeur modifié qui ne devais pas l'être d'où l'importance de la notice et de limiter les action de l'utilisateur quand c'est possible ce qui n'est pas toujours le cas).

Citation:

---

Il y a plusieurs manière de faire en effet dont certaines mènent, à mon avis, à des problèmes un jour ou l'autre.

---

Empêcher l'utilisateur de faire certaines choses le limite justement.

Citation:

---

Autant faire simple, préciser le classeur ça coute 2 lignes de code avec un with ou avec une variable worksheet, pourquoi s'en priver.

---

Je ne dis pas de s'en priver. Simplement, dans certaines conditions. Je dis bien dans certaines conditions on peut se permettre de faire autrement, voire on ne peut pas faire autrement. Mais bien sûr si on peut le faire autant le faire.

Citation:

---

Envoyé par beta007

re,


merci, mais cette partie du problème je l'avais compris :), la pertie que je ne comprends pas est comment faire pour que mon"IF" travaile sur le bon onglet sans employer de ".Select" ? (voir exemple plus haut)

---

Ta feuille est dans le With.
Tu n'as plus qu'à rapporter à cette feuille les Range qui lui appartiennent en plaçant un point devant.
Exemple :

Code:

---

1 2 3 4 5 6

With Sheets(Onglet(16)) If Now - .Range("B1") > 1 Then TypeEquipe = InputBox("entrer 2 ou 3", "nbrs équipe", 2) .Range("E1") = TypeEquipe End If End With

---

EDIT :
rappel :

Citation:

---

A noter : toujours indiquer qu'elle propriété tu utilises... Dans l'exemple j'utilise la propriété Value des Range.

---

Donc...

Code:

---

1 2 3 4 5 6

With Sheets(Onglet(16)) If Now - .Range("B1").Value > 1 Then TypeEquipe = InputBox("entrer 2 ou 3", "nbrs équipe", 2) .Range("E1").Value = TypeEquipe End If End With

---

comme cela c'est clair :lol:
merci encore de votre aide et de votre patience

Bonjour, Il ne faut pas mettre le . devant If, mais devant les plages de l'onglet:

Code:

---

1 2 3 4 5 6

With Sheets(Onglet(16)) If Now - .Range("B1") > 1 Then TypeEquipe = InputBox("entrer 2 ou 3", "nbrs équipe", 2) .Range("E1") = TypeEquipe End If End With

---

En fait,

Code:

---

1 2 3

With Sheets(Onglet(16)) .range("A1"). copy End With

---

c'est pareil que d'écrire,

Code:

---

Sheets(Onglet(16)).range("A1").copy

---

En fait "If" est seulement une fonction "si" qui doit agir sur une plage de la sheets considérée. c'est donc les plages, colonnes ou ligne qui doivent être précédées par un point.
Par ailleurs etes vous sur de l'écriture Sheets(Onglet(16)). ça me semble étrange?
Cordialement 8-)

bonjour,

Citation:

---

Envoyé par Transitoire

Par ailleurs etes vous sur de l'écriture Sheets(Onglet(16)). ça me semble étrange?
Cordialement 8-)

---

oui (je crois), le "16" est en fait un compteur et cette partie de la macro est dans une boucle et a chaque boucle je passe à l'onglet suivant (c'est peut-être pas la meilleur façon de faire mais cela marche :))

et vu que j'y suis j'ai encore un problème, je suis toujours en train d'enlever mes .Select que j'avais généreusement semé partout dans mes macros :oops::oops:

Code:

---

1 2 3 4 5

Sheets("donnee").Range(Cells(Ligne, 3), Cells(Ligne, 4)).Copy With Sheets("resultat") .Range(Cells(Ligne, 3), Cells(Ligne, 4)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End With

---

mais là cela ne passe pas, les deux écritures bug (avec with ou sans), si je ne suis pas sur le bon onglet: soit je suis sur l'onglet donnee et cela copie , mais pas possible de coller soit l'inverse.
où est-ce que j'ai fait faux?
merci encore de votre précieuse aide.

Citation:

---

Envoyé par beta007

Code:

---

Sheets("donnee").Range(Cells(Ligne, 3), Cells(Ligne, 4)).Copy

---

---

Ceci ne peut pas fonctionner.
Soit ton Sheets("donnee") ne sert à rien (si c'est la feuille active), soit (et c'est plus probable) il faut l'ajouter aussi à chaque Cells contenu dans le Range.
Cela dit, il serait beaucoup plus simple de l'écrire :

Code:

---

Sheets("donnee").Range("C" & Ligne & ":D" & Ligne).Copy

---

Ou même

Code:

---

Sheets("donnee").Range("C1:D1").Offset(Ligne-1, 0).Copy

---

Idem pour le PasteSpecial.

super et merci encore c'est parfait :)

Bonsoir, je m'incruste car je tourne en rond grave (du fait de ma méconnaissance dramatique de vba évidemment) : je n'arrive pas à sélectionner une plage de cellules (contigües et sur la même ligne), en fonction d'une cell active quelconque ; jusqu'ici j'utilisais un brave :
r = ActiveCell.Row
Range(Cells(r, 4), Cells(r, 48)).Select
etc.
mais là je me fais jeter ; mon "r" n'est pas/plus reconnu dans un petit projet tout bête (pourtant je ne crois pas avoir eu à le déclarer dans les précédentes macros bidouillées jusqu'ici)... Si quelqu'un a la bonté de palier à mon ignardise, qu'il en soit remercié au centuple...:aie:

Peut-être que tu devrais spécifier le nom de la feuille

With Sheets("Nom de la feuille")
r = .ActiveCell.Row
.Range(.Cells(r, 4), .Cells(r, 48)).Select
End With

À noter les points
Aussi éviter les Select. Il y a tout plein d'exemples ici selon ce que tu veux faire sans faire de Select.

Citation:

---

Envoyé par parmi

Peut-être que tu devrais spécifier le nom de la feuille

With Sheets("Nom de la feuille")
r = .ActiveCell.Row
.Range(.Cells(r, 4), .Cells(r, 48)).Select
End With

À noter les points
Aussi éviter les Select. Il y a tout plein d'exemples ici selon ce que tu veux faire sans faire de Select.

---

Merci ! Mais il coince toujours sur r =.ActiveCell.Row --> erreur de compilation, "variable non définie"...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Private Sub NewEventInput_Click()   With Sheets("BaseTARG") r = .ActiveCell.Row .Range(.Cells(r, 4), .Cells(r, 48)).Select   With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.14996795556505 .PatternTintAndShade = 0 End With   Call gestion_FormBaseTARG.transferer_valeurs_FormBaseTARG   Call gestion_FormBaseTARG.remplir_FormBaseTARG   Sheets("BaseLeaderBoard").Activate Rows(6).Insert   Sheets("BaseLeaderBoard").Activate   Range("D6").Select   ActiveCell = LaBoxDateSaisie.Value ActiveCell.Offset(0, 1) = ComboBoxSource.Value ActiveCell.Offset(0, 5) = boxdénom.Value ActiveCell.Offset(0, 15) = boxca.Value ActiveCell.Offset(0, 16) = BoxCodeTARG.Value ActiveCell.Offset(0, 17) = boxdénom.Value etc.

---

Déclare ta variable "r" en début de macro

Dim r as Long

Citation:

---

Envoyé par parmi

Déclare ta variable "r" en début de macro

Dim r as Long

---

Haaa.... ça fait du bien de sortir la tête de son c.. Merci Parmi !! 😆