Discussion :

[Nako_lito]

Salut a tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[diude54]

Perso je fait simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each Cell in plageToutLesChamps.Range
...
Next Cell

[Krovax]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[Nako_lito]

il me met "objet requis" en surlignant la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for each cel in plageToutLeschamps

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

[Nako_lito]

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.

[Krovax]

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é"
pense au . 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)

[Nako_lito]

merci

[Nako_lito]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Krovax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nako_lito]

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 ^^

[Krovax]

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

[Nako_lito]

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

[Krovax]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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