Discussion :

[Mehen]

Bonjour,

J'ai un problème de variable, je les ai défini de la maniéré suivante.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
 
 
Dim libelle As Range
Dim libelle_fev As Range
Dim Solde As Range
 
 
libelle = Range("A2").Select
libelle_fev = Workbooks("budget fev.xlsx").Worksheets("Feuil1").Range("A1").Select
Solde = Workbooks("budget fev.xlsx").Worksheets("Feuil1").Range("B1").Select

Mais le programme me dit qu'elles ne sont pas définie. Je commence juste le vba (4 jours environs) et je vois pas où je me trompe sur ce coup j'ai du mal définir le chemin je suppose ou l'objet.
Si quelqu'un pourrait m'éclairer sur mon erreur je le remercierai grandement

Cordialement Mehen

[unparia]

Bonjour
Range est un objet
on affecte un objet à une variable par une instruction Set et non par une simple égalité.

[patricktoulon]

re
l'instruction "Set" sert a instancier ta variable en tant qu'object ici "Range
et tes ".select c'est pourquoi faire ? les selectionner toutes les 3 en meme temps ?????

Code :

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

1
2
3
4
5
6
7
8
Dim libelle As Range
 Dim libelle_fev As Range
 Dim Solde As Range
 
 
 set libelle = Range("A2")'.Select
 set libelle_fev = Workbooks("budget fev.xlsx").Worksheets("Feuil1").Range("A1")'.Select
 set Solde = Workbooks("budget fev.xlsx").Worksheets("Feuil1").Range("B1")'.Select

[Mehen]

Bonjour,

Merci à vous mes variables on enfin une valeur! Je comprend je vais rajouter ca dans mes feuilles d'utilisation.

Alors mes select c'était pour les sélectionner en effet mais je les ai supprimé vus que ca marchait pas car après je vais construire une condition.

Je vais essayer de programmer:

libelle = libelle_fev et si vrai alors la valeur solde ira dans une cellule et si faux ne rien faire.

(Dit comme ca une simple formule SI excel devrait marcher (enfin moi jai pas trouvé) mais non pour une raison: Quand les libellés ne correspondaient pas rien ne s'affichait (donc cool) mais excel se decalait d'une ligne. Donc les soldes finissaient par se décaler).


Imaginons

document excel 1 Document 2 avec les soldes (dossier généré par un logi

6005000 8000 6005000 8000
6000600 6000300 4000
6000300 6000700 3000
6040000 2000 6040000 2000



La dans mon exemple on peut voir que le libelle 600300 n'a pas eu ca valeur et après sur de grand tableau ca créé des décalages importants. Et bien-sur je ne peux pas toucher à la présentation du document excel 1 et ma responsable de stage veut avoir un truc souple (genre rajouter des comptes si besoin) donc je me suis tourné vers la macro que je pense être ma solution.


Bref je vais essayer de faire ma condition je reviendrai vers vous si je suis en train de manger mon pc.

[Mehen]

Hum d'accord merci pour la piste c'est sympa .



Je fournirai une pièce jointe demain je veux essayer d'avancer tout seul un peu c'est en forgeant qu'on devient forgeron et merci encore çà m'a débloquer. pour le moment.

[Mehen]

rebonjour,


Voila je bloque encore. Voila mon code, il fonctionne mais que sur 1 case normal j'en ai défini qu'une. Mais quand je mets Range("A2:A297"), ("A2:A96"),("E2:E96") et enfin ("C2: C297") ça fonctionne plus. J'ai donc eu l'idée de faire des incrémentations ou une boucle mais je vois pas comment la coder.

Je vois pas comment la coder, car je veux que quand le numéro de compte du ficher 1= numéro du fichier 2 alors le solde du fichier 1 égale le solde fichier 2. Sauf que le fichier 1 à bcp plus de ligne (et je ne peux pas le modifier et je pense que ca va poser problème).

De plus les numéros ne sont pas classés de la même maniérè dans le fichier 2 qui est généré via un autre logiciel. Donc si quelqu'un à une idée je suis preneur car depuis hier je bloque.

je vais mettre des fichiers exemple pour que ça soit plus claire.

fichier 1.xlsxFichier 2.xlsx

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
21
22
23
24
25
26
27
28
29
30
31
Sub Test
 
'Determination des variables'
 
Dim numero_Budget As Range
Dim numero_logiciel As Range
Dim Solde_logiciel As Range
Dim Fevrier As Range
 
'On utilise set pour définir nos objets, il faut ouvrir les deux dossiers'
 
Set numero_Budget = Range("A2")
Set numero_logiciel = Workbooks("mars.csv").Worksheets("mars").Range("A2")
Set Solde_logiciel= Workbooks("mars.csv").Worksheets("mars").Range("E2")
Set Fevrier = Range("C2")
 
'On pose la condition'
 
If numero_Budget =numero_logiciel Then
 
Fevrier = Solde_logiciel
 
 
 
 
Else
 
 
 
End If
End Sub

[patricktoulon]

bonjour
etant donné que visiblement tu travaille sur deux classeur ouverts
il te faut etre plus precis sur la determination de tes variable
exemple

Code :

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

1
2
3
4
Set numero_Budget = thisworkbook.nomdefeuille.Range("A2")
Set numero_logiciel = Workbooks("mars.csv").Worksheets("mars").Range("A2")
Set Solde_logiciel= Workbooks("mars.csv").Worksheets("mars").Range("E2")
Set Fevrier = thisworkbook.nomdefeuille.Range("C2")

[Mehen]

Ok merci, je reprend le code aujourd'hui en espérant que je vais arriver à en voir la fin XD.

[Mehen]

Bonjour, c'est encore moi, bon j’avance doucement mais surement on va dire.

Maintenant j'ai un autre problème quand j'exécute mon cote (il va bien jusqu'a 300 lignes donc cool) mais au lieu de me mettre les soldes en C dans mon 1er fichier il me mets que des "vrais" et il remplace par des "vrais" les libelles dans le fichier 1 et 2 .


Question pourquoi car la je comprend pas ?

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
21
22
23
24
25
26
27
28
29
30
31
Sub Test()
 
'Determination des variables'
 
Dim libelle_Budget As Range
Dim libelle_Cegid As Range
Dim Solde_Cegid As Range
Dim Fevrier As Range
 
'On utilise set pour définir nos objets, il faut ouvrir les deux dossiers'
 
Set libelle_Budget = Worksheets("Budget").Range("A2:A300")
Set libelle_Cegid = Workbooks("mars.csv").Worksheets("mars").Range("A2:A300")
Set Solde_Cegid = Workbooks("mars.csv").Worksheets("mars").Range("E2:E300")
Set Fevrier = ThisWorkbook.Worksheets("Budget").Range("C2:C300")
 
'On pose la condition'
 
libelle_Budget = Cells(2, 1).Select
libelle_Cegid = Cells(2, 1).Select
Solde_Cegid = Cells(2, 5).Select
Fevrier = Cells(2, 3).Select
 
If libelle_Budget = libelle_Cegid Then
Fevrier = Solde_Cegid
 
 
 
End If
 
End Sub