Range sur une plage de cellule avec ligne variable VBA

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 !! 😆