Impossible d'affecter une valeur à une variable

Bonjour,

Je suis en train de me casser la tête sur une problématique qui me semble toute bête, mais impossible de trouver une solution.

Ce que je souhaite :

1) Stocker dans une variable X la valeur d'une colonne A de la feuille 1 ;
2) Stocker dans une variable Y a valeur d'une colonne C de la feuille 2 ;
3) Affecter dans la variable Y la valeur de la variable X.

Ce que je fais :

Code:

---

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

Sub Alimentation_Liaison()   ''''Création variable Dim Nbenreg As Long   ''''Pour parcourir l'ensemble des lignes non vides Nbenreg = Worksheets("Fichier de travail").Range("A3").End(xlDown).Row For I = 3 To Nbenreg   ''''Récupération de valeurs de colonnes   Code = Sheets("Fichier de travail").Range("A" & I).Value Code_Projet_Client = Sheets("Projets Client").Range("C" & I).Value   Code_Projet_Client = Code   Next I   End Sub

---

Ce qui m'arrive :

Erreur d'exécution 424 : Objet requis

Pouvez-vous, s'il vous plaît, me débloquer là-dessus ?

Bonjour
1) tu voudras d'abord bien m'expliquer le sens de ces 3 lignes

Code:

---

1 2 3 4

Code = Sheets("Fichier de travail").Range("A" & I).Value Code_Projet_Client = Sheets("Projets Client").Range("C" & I).Value   Code_Projet_Client = Code

---

dont la 3ème écrase le résultat de la 2ème pour prendre celui de la 1ère !
2) où et comment as-tu déclaré les variables Code et Code_Projet_Client (car si typées en objets, ma foi ...)

Alors :

1) L'objectif est de créer des variables qui récupère des valeurs dans un onglet A, puis, selon des conditions non citées dans ce bout de code, de les affecter dans une cellule dans un onglet B.
Je veux créer des variables pour stocker les valeurs de l'onglet A pour éviter d'avoir ce genre de choses :

Code:

---

Sheets("Projet Client").Range("C" & I).Value = Sheets("Fichier de travail").Range("A" & I).Value

---

2) J'avais oublié de créer ces 2 variables. Je viens de le faire comme suit, mais cela ne fonctionne pas plus :

Code:

---

1 2	Dim Code As String Dim Code_Projet_Client As String

---

PS : je précise que je suis débutant en VBA. En programmation tout court d'ailleurs.

Citation:

---

1) L'objectif est de créer des variables qui récupère des valeurs dans un onglet A, puis, selon des conditions non citées dans ce bout de code, de les affecter dans une cellule dans un onglet B

---

Cela ne change absolument rien à la remarque que j'ai faite
2) le message d'erreur reçu ne correspond alors à aucune des lignes de code que tu montres.

Bon, passons sur l'erreur reçue.

Ma question est : comment faire ce que je souhaite, à savoir :

1) Stocker dans une variable X la valeur de la ligne I d'une colonne A de la feuille 1 ;
2) Affecter la valeur de la variable X dans la ligne I d'une colonne C de la feuille 2 ?

Bonjour,
Pourquoi n'utilise-tu pas simplement une variable objet de type Range ?
Exemple écrit de mémoire donc non testé

Code à placer en tête de procédure

Code:

---

1 2 3 4 5 6 7 8 9 10 11

' Déclaration des variables Dim shtSource As Worksheet Dim shtTarget As Worksheet Dim rngSource As Range Dim rngTarget As Range ' Attribution de la référence d'objet With ThisWorkbook Set shtTarget = .Sheets("Projet Client") Set shtSource = .Sheets("Fichier de travail") End With

---

Code de la boucle

Code:

---

1 2 3 4 5

For i = 3 To Nbenreg Set rngSource = shtSource.Range("A" & i) Set rngTarget = shtTarget.Range("C" & i) rngTarget.Value = rngSource.Value Next

---

[EDIT]
Attention erreur de nommage en ligne (j'ai mis en rouge la correction)

Questions inquiétantes
on affecte la valeur d'une variable V à la cellule R5 d'une feuille "FEUILLE" ainsi :

Code:

---

Worksheets("FEUILLE").Range("R5").value = V

---

si l'on veut remplacer 5 par la valeur (un numérique) d'une variable k --->>

Code:

---

Worksheets("FEUILLE").Range("R" & k).value = V

---

et c'est ce que tu as d'ailleurs écrit.

Ton erreur est donc ailleurs (en plus de mon observation sur un écrasement, qui n'explique aucunement l'erreur et est autre chose).

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Pourquoi n'utilise-tu pas simplement une variable objet de type Range ?
Exemple écrit de mémoire donc non testé

Code à placer en tête de procédure

Code:

---

1 2 3 4 5 6 7 8 9 10 11

' Déclaration des variables Dim shtSource As Worksheet Dim shtTarget As Worksheet Dim rngSource As Range Dim rngTarget As Range ' Attribution de la référence d'objet With ThisWorkbook Set shtTarget = .Sheets("Projet Client") Set rngSource = .Sheets("Fichier de travail") End With

---

Code de la boucle

Code:

---

1 2 3 4 5

For i = 3 To Nbenreg Set rngSource = shtSource.Range("A" & i) Set rngTarget = shtTarget.Range("C" & i) rngTarget.Value = rngSource.Value Next

---

---

Bonjour !

Merci beaucoup pour cette réponse qui me permet de me débloquer, c'est parfait !

Bonne continuation !

Citation:

---

Envoyé par unparia

Questions inquiétantes
on affecte la valeur d'une variable V à la cellule R5 d'une feuille "FEUILLE" ainsi :

Code:

---

Worksheets("FEUILLE").Range("R5").value = V

---

si l'on veut remplacer 5 par la valeur (un numérique) d'une variable k --->>

Code:

---

Worksheets("FEUILLE").Range("R" & k).value = V

---

et c'est ce que tu as d'ailleurs écrit.

Ton erreur est donc ailleurs (en plus de mon observation sur un écrasement, qui n'explique aucunement l'erreur et est autre chose).

---

Bonjour,

Merci de votre intervention, mais une fois de plus, là n'était pas le sujet, mon code cité n'était qu'un test d'après ce que je pouvais imaginer et visiblement, ce n'était pas bon.