Discussion :

[bonjour0555]

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 :

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

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 !

[Pierre Dumas]

Bonsoir

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

Code :

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

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 :

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

.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

[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 :

Code :

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

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

[Igloobel]

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 :

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

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 :

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

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

[Pierre Dumas]

Bonsoir

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

Code :

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

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

[Pierre Fauconnier]

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.

[...]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?

[Qwazerty]

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 :

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

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

[bonjour0555]

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 :


Feuille report dans Action en cours (12 lignes) :


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

Merci d'avance

[bonjour0555]

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

Code :

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

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