plage de selection

Salut a tous,

Alors voila, je développe un ptit projet dans lequel je créé des plage de selection comme suit :

Code:

---

1 2 3

Dim plageToutLeschamps As Range Set plageToutLeschamps = Feuil5.Range("B1:B" & indexLigne) plageToutLeschamps.Name = "laListeDeToutLesChamps"

---

Elles sont au nombre de 4 (mais c'est pas important).

Dans mon code je voudrais pouvoir faire qqc comme :

Code:

---

1 2 3

For Each Cell in plageToutLesChamps -------- Next

---

Le probleme c'est que le compilateur attend des choses apres "plageToutLesChamps", je ne dois donc pas avoir la bonne sytaxe ... quelqu'un pour m'aider svp ?

Perso je fait simplement

Code:

---

1 2 3 4 5 6

dim c as range, plage as range set plage=range("A1","A67") for each c in plage ... next c

---

Si il te demande quelque chose essai:

Code:

---

1 2 3

For Each Cell in plageToutLesChamps.Range ... Next Cell

---

Bonjour,
tu as déclaré cell en range?

Code:

---

1 2 3 4 5 6 7

dim cel as range 'je préfère ne mettre qu'un seul l pour ne pas confondre avec cells Dim plageToutLeschamps As Range Set plageToutLeschamps = Feuil5.Range("B1:B" & indexLigne)   for each cel in plageToutLeschamps ... next cel

---

Edit bonjour diude on c'est croisé

il me met "objet requis" en surlignant la ligne

Code:

---

for each cel in plageToutLeschamps

---

ma variable cel est bien déclaré en Range, ma plage egalement.

j'ai trouvé mon soucis, je déclarrais mes variable range dans un module a coté et j'appelai un fonction qui intialisai le tout. en mettant direct dans le code ca fonctionne.

Citation:

---

Envoyé par Nako_lito

je déclarrais mes variable range dans un module a coté .

---

Vba est un peu basique comme langage il ne va pas voir "a coté" :roll:
pense au :resolu:. Et met toi en mode explicite cela t'évitera ce genre de bêtise ;)
(un tuto si tu ne connais pas comment le faire en automatique)

merci

Je reviens sur cette fonctionnalité qui permet de limiter l'espace de travail a une selection.

Je vais essayer d'expliquer le plus clairement possible :P

Ma feuille se contruit comme suit:

NomRq __ ChampRq __ indexChamp

J'ai une plage de travail "A1:A" & indexLigne (je prend donc tout les "NomRq").

Je voudrais que pour toute les cases dans cette selection, il teste si NomRq = combobox.text. Si c'est le cas, il efface la ligne entiere avec la fonction .Delete Shift:=xlUp

J'ai ecris ca:

Code:

---

1 2 3 4 5 6 7

Set plageDeTravail = Feuil1.Range("D2:D" & derniereLigne) For Each cel In plageDeTravail If cel.Value = ComboBoxListe.Text Then cel.EntireRow.Copy i = cel.Row End If Next

---

Il trouve la premiere case qui correspond, mais ne supprime que la premiere ligne. ensuite la valeur de cel passe a cel.Value = <Objet requis>, cela voudrais t'il dire qu'il faut redéfinir la plage a chaque fois qu'il trouve et qu'il efface ?

Une journée nuageuse rien de tel pour programmer. Cela évite d'envier ceux qui vont à la plage, bon bref
Dans ce cas une boucle for sur un indice est plus pratique tu as une bonne maitrise du sens de parcoure et pas de problème de plage

Code:

---

1 2 3 4 5

for i = derniereLigne to 2 step -1 if cells(i,1)=ComboBoxListe.Text then rows(i).delete end if next i

---

je n'ai pas préciser et c'est en voyant le code que tu a mis, que je me suis rendu compte que c'est quand meme super important :p :

sur une premiere feuille j'ai une liste de rq avec des informations diverses et variées, sur une seconde feuille j'ai ces nom de requete mais avec leur champs, ce qui fait qu'une requete est renseigné dans deux feuille, une fois pour les infos generale (ce qu'elle fait, par qui, pourquoi) et une autre fois pour renseigner les champs.

C'est vrai que la plage aujourd'hui, c'est pas le pied, mieux vaut etre devant son pc et programmer ^^

Et sur ta deuxième feuille il y a une correspondance entre les lignes?

C'est a dire ? tu veux savoir si la rq1 est en ligne x sur les deux feuille ? La reponse est non, je te met un petit morceaux d'exemple

Feuille 1
Type/ Domaine/ Source des données/ Référence technique/ Définition/ Objet d'origine/ Critére(s) Développeur/ Edition/ Editeur/ Date création/ Date MAJ
une requete par ligne.
GA / rq1 / fait ca / l'objet / tout les criteres / le développeur type de rq / outils de dev 24/07/2009 24/07/2009


Feuille 2
RQ/ CHAMPS/ INDEX
rq1 / Champ1/ 1
rq1 / Champ2/ 2
rq1 / Champ3/ 3
rq2 / Champ1/ 1
rq2 / Champ2/ 2
rq3 / Champ1/ 1
rq3 / Champ2/ 2
rq3 / Champ3/ 3
rq3 / Champ4/ 4
rq3 / Champ5/ 5

regarde ceci à adapter (et corriger les erreurs de frappe)

Code:

---

1 2 3 4 5 6 7 8 9 10

dim c as range, i as long, derniereLigne2 as long, derniereLigne as long   for i = derniereLigne to 2 step -1 if cells(i,1)=ComboBoxListe.Text then derniereLigne2=feuil2.Range("A1").End(xlDown).Row set c=feuil2.range("A1:A" & derniereLigne2).find(cells(i,1)) if not c is nothing then c.entirerow.delete rows(i).delete end if next i

---