Discussion :

[Tigris]

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 :

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

[unparia]

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

Code :

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

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 ...)

[Tigris]

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 :

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

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 :

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

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.

[unparia]

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.

[Tigris]

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 ?

[unparia]

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

Code :

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

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

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

Code :

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

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).

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

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

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 :

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

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)

[Tigris]

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 :

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

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 :

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

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 !