For i to valeur d'une cellule

Bonjour à tous,

J'aimerais savoir si c'est possible d'utiliser la fonction For i to ... avec une valeur d'une cellule à sélectionner.
J'ai essayé sans succès l'erreur 13 s'affiche alors.

J'ai également un problème avec ma formule : .Range("A" & iRowRack_R) = cell.Value, l'erreur 1004 s'affiche.

Ci-dessous mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

With Worksheets("Réalisation_Audit")   For Each cell In .Range("A1:A100") If cell.Value <> "" Then     With Worksheets("Actions_en_cours")   For i = 1 To Worksheets("Réalisation_Audit").Range("A1:A100").Value iRow_Rack_R = .Range("A" & .Rows.Count).End(xlUp).Row + 1 .Range("A" & iRowRack_R) = cell.Value Next i cell.Font.ColorIndex = 3     End With End If Next End With

---

Merci pour votre aide !

Bonsoir

Il s'agit de deux petites fautes d'inattention.

Code:

---

For i = 1 To Worksheets("Réalisation_Audit").Range("A1:A100").Value

---

Il ne faut prendre la valeur que d'UNE seule cellule (pas d'une plage).

Code:

---

.Range("A" & iRow_Rack_R) = cell.Value

---

Le signe _ a été oublié dans le nom de la variable.


En espérant que cela aide

Bonne nuit

Pierre Dumas

Merci pour votre réponse. Mon problème était que la valeur du i varié en fonction des valeurs de toute une colonne.
Je ne pouvais donc pas le figé à une cellule. J'ai donc essayé de tourner la macro d'une autre façon mais celle-ci ne fonctionne tjrs pas.
Si vous avez une idée du problème :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

With Worksheets("Réalisation_Audit")   For Each cell In .Range("L1:L100") If cell.Value <> "" Then     With Worksheets("Actions_en_cours")   For i = 1 To cell.Value iRow_Rack_R = .Range("A" & .Rows.Count).End(xlUp).Row + 1 .Range("A" & iRow_Rack_R) = Worksheets("Réalisation_Audit").Range("A1:A100") Next i cell.Font.ColorIndex = 3     End With End If Next End With

---

Merci pour votre aide

Bonjour,

Concernant ton code quelques remarques :

Perso je n'utilise pas WITH pour passer d'une feuille à l'autre. Il y a plusieurs façons de faire dont la plus simple que l'on peut obtenir de l'enregistreur de macro est :

Code:

---

1 2 3

Sheets("Réalisation_Audit").Select '... Sheets("Actions_en_cours").Select

---

le "For Each" me parrait peu pratique car l'on fait évoluer une cellule à une autre en descendant un simple "For" ferait l'affaire.

Code:

---

1 2 3

For Lign = 1 to 100 If Cells (lign,12).value ...

---

12 est la valeur de la position dans alphabet (12 = L).

Ensuite dans ton "For I" il y a deux choses qui me chiffonne
- mettre une plage comme valeur d'arrivée n'est pas possible il faut faire dans ce cas 2 boucles imbriquées l'une dans l'autre
- je n'ai pas vu où était utilisé la variable I dans la boucle For ... Donc l'utilité de la boucle For doit être bien expliquée car le n'ai pas compris à quoi cela sert

Tiens nous au courant

Bonsoir

Citation:

---

Envoyé par bonjour0555

Merci pour votre réponse. Mon problème était que la valeur du i varié en fonction des valeurs de toute une colonne.
Je ne pouvais donc pas le figé à une cellule. J'ai donc essayé de tourner la macro d'une autre façon mais celle-ci ne fonctionne tjrs pas.
Si vous avez une idée du problème :

---

Qu'est ce qui ne fonctionne pas ? Un message d'erreur, un résultat non attendu, rien ne se passe, ... ? Ce serait bien d'expliquer. Je suis contributeur, pas devin ;)

Citation:

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

With Worksheets("Réalisation_Audit")   For Each cell In .Range("L1:L100") If cell.Value <> "" Then     With Worksheets("Actions_en_cours")   For i = 1 To cell.Value iRow_Rack_R = .Range("A" & .Rows.Count).End(xlUp).Row + 1 .Range("A" & iRow_Rack_R) = Worksheets("Réalisation_Audit").Range("A1:A100") Next i cell.Font.ColorIndex = 3     End With End If Next End With

---

Merci pour votre aide

---

Sans prendre le temps de bien analyser votre code, je peux dire que :
la ligne 11 pourrait être mis en ligne 9. D'après ce que je comprends, cela ne sert à rien qu'elle soit dans une boucle.
la ligne 12 me parait difficile à fonctionner : une cellule ne peut pas être égale à cent cellules.

En espérant que cela aide

Bonne soirée

Pierre Dumas

Salut.

Comme souvent, il serait intéressant d'expliquer en français ce que tu souhaites réaliser. Il y a de fortes chances que ton code pourrait être simplifié, mais comme on ne sait pas exactement ce que tu souhaites réaliser, on ne peut que mettre des rustines là où cela fuit, mais c'est le meilleur moyen d'avoir un code bordélique et non maintenable.

Citation:

---

Envoyé par Igloobel

[...]le "For Each" me parrait peu pratique car l'on fait évoluer une cellule à une autre en descendant un simple "For" ferait l'affaire.[...]

---

Pourquoi? Si l'on n'a pas besoin de l'index de la boucle, un For Each r in Range("a1:a100") peut parfaitement faire l'affaire, non?

Salut

Tu veux que i prenne alternativement le contenu de chaque cellule contenu de A1 à A100 si j'ai bien compris

Quelque Chose comme ça peut-être

Code:

---

1 2 3 4 5 6 7 8 9

Dim i as Integer   With Thisworkbook.Worksheets("Réalisation_Audit")   For Each cell In .Range("A1:A100") i = cint(cell.value) '... Suite du code utilisant la valeur de i Next End with

---

++
Qwaz

Bonjour à tous,

Merci pour vos nombreuses réponses effectivement je n'étais pas très clair.
Je vais essayer de vous expliquer plus précisément mon problème.

Dans ma feuille Réalisation_Audit dans la colonne A des numéros concernant un emplacement sont présents (chiffre).
Dans la même feuille dans la colonne L sont présents le nombre d'outil défectueux (chiffre).

J'aimerais que dans la feuille Actions_en_cours colonne A le numéro de l'emplacement (colonne A feuille réaliation_Audit soit reporté le nombre de fois qu'il a d'outil défectueux dans la colonne L de la feuille Réalisation_Audit.

Feuille Réalisation Audit :
Pièce jointe 618747

Feuille report dans Action en cours (12 lignes) :
Pièce jointe 618748

J'espère avoir été plus clair.

Merci d'avance

J'ai réussi à résoudre mon problème merci de votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

With Worksheets("Réalisation_Audit")   For Each cell In .Range("L4:L100") If cell.Font.ColorIndex <> 3 And (cell.Value <> "") Then   For i = 1 To cell.Value With Worksheets("Actions_en_cours")   iRow_Rack_R = .Range("A" & .Rows.Count).End(xlUp).Row + 1 .Range("A" & iRow_Rack_R) = Worksheets("Réalisation_Audit").Range("A4:A100").Value       End With Next End If Next End With

---