Macro VBA faisant appel à deux feuilles excel Résolu/Fermé

Question

Bonjour, 

J'ai un problème avec une macro VBA.

Mon code est le suivant:

Sub Macro1()

    Sheets("Saisie_données_contrat").Activate
    i = 2
    For i = 2 To 149 Step 3
'il me prends A2 puis A5 puis A8, il refusait A&"i" donc j'ai utilisé (chr34) (lgne du dessous)
    contrat = (chr34) & "A" & i & (chr34) 
        Range(contrat).Select
        Sheets("Calcul").Activate
        Range("A6").Select
        Range("A6").Value = Range(contrat).Value
        
    Next i
End Sub

Sur la feuille "Saisiee_donnée_contrat", il me prends a partir de la 2éme ligne les valeurs de la colonne A et ce toutes les 3 lignes (A2, A5, A8 et ainsi de suite)
Ensuite je voudrais qu'il me copie successivement ces valeurs dans la cellule A6 de la feuille calcul.

Mais en fait ma macro me prends bien une valeur sur 3 de la colonne A et les mets dans la cellule A6, mais elle prends la colonne A de la feuille Calcul et non pas la colonne A de la feuille "Saisie_données_contrats".
Je pense que sur la ligne de code contrat=(chr34)......., il faut que je lui spécifie la feuille excel concernée.

Savez-vous comment faire ça?

D'avance merci, ça fait 2 jours que je suis bloquée dessus.

Merci merci merci

Configuration: Windows 2000 / Internet Explorer 6.0

pijaku · Answer

Bonjour,
Essaie ceci :

Sub Macro1() 
Dim i As Integer
Sheets("Saisie_données_contrat").Activate 
For i = 2 To 149 Step 3 
With Sheets("Calcul")
    .Range("A6").Value = Sheets("Saisie_données_contrat").Range("A" & i).Value
End With
Next i 
End Sub 

Je ne vois pas trop l'utilité, la cellule A6 de la feuille Calcul va s'effacer au fur et à mesure et tu ne va y retrouver que la dernière valeur...

la_defense · Answer

Je viens d'essayer ton code et il ne se passe rien. La souris se met juste sur la case A2 de la feuille Saisie_données_contrat et c'est tout. Il ne sepasse rien sur la feuille Calcul et la cellule Calcul!A6 reste vide.
C'est bizarre. Aurais-tu une autre idée?

En fait la finalité de mon code sera 
 - de mettre succesivement dans A6 les valeurs de la colonne A de la feuille Saisie_données_contrat

 - de recopier la plage de données A6:I8 

 - de la copier sur une troisième feuille 

Mais comme je ne suis pas une lumière en VBA, je voulais y aller étape par étape en fait.

Merci de ta réponse

la_defense · Answer

et ainsi de suite.
ce que je voudrais, c'est que ma cellule contrat (Calcul!A6) soit incrémentée automatiquement depuis ma colonne A de la feuille saisie_données_contrat. 

Comme a chaque nouveau contrat les valeurs de la plage A6:I8 sont recalculées, je voudrais les recopier sur une autre feuille.

Et pour le moment, j'essaie de trouver le code qui me permet de mettre succesivement dans A6 les valeurs de la colonne A de la deuxième feuille.
Désolée, je n'ai pas été assez claire dans ma question.

Merci de ta dispo et de prendre le temps de m'aider, je me sens vraiment bête la

la_defense · Answer

oui, c'est exactement ce que je veux faire

pijaku · Answer

Alors prends ce code. Remplace "Feuil3" par le nom de ta troisième feuille...


Sub Macro1() 
Dim i As Integer, DerniereLigne As Integer, Derlig As Integer 'déclaration des variables
Sheets("Saisie_données_contrat").Activate 'On active la feuille Saisie_données_contrat
Derlig = Sheets("Saisie_données_contrat").Range("A65536").End(xlUp).Row ' on en détermine la dernière ligne qui servira de fin à notre boucle
For i = 2 To Derlig Step 3 'initialisation de la boucle Step 3
With Sheets("Calcul") 'dans la feuille calcul
'la cellule A6 prends la 1ere valeur de la boucle
    .Range("A6").Value = Sheets("Saisie_données_contrat").Range("A" & i).Value
End With
'ici on détermine la première ligne vide de la feuille3
With Sheets("Feuil3")
    DerniereLigne = .Range("A65536").End(xlUp).Row + 1
End With
'on copie la plage de cellules de feuille calcul
With Sheets("Calcul")
    .Range("A6:I8").Copy
End With
'et on colle "spécial valeurs"
Sheets("Feuil3").Range("A" & DerniereLigne).PasteSpecial Paste:=xlPasteValues
'au suivant
Next i
End Sub

la_defense · Answer

Je tente tout de suite

la_defense · Answer

Testé.
Alors,

Ca me copie bien mes contrats sur la feuille3 mais par contre il ne recopie que la plage A6:I6, c-à-d la première ligne de la plage que je veux recopier. Sauf pour le dernier contrat ou il y a bine la plage A6:I8.

Peux être qu'il recopie bien les 3 ligne (6 à 8) mais que chaque nouveau contrat viens ecraser les deux dernières lignes du contrat précédentsauf le dernier.

A part ça, c'est vraiment ce que je recherche à faire

Macro VBA faisant appel à deux feuilles excel

7 réponses

Discussions similaires