Discussion :

[Razekiel_]

Bonjour à tous,

J'aimerais avoir un coup de main pour créer un code VBA qui puisse me permettre de copier des données sur une autres feuilles.

Malheureusement je ne m'y connais pas en VBA. Cela ne m'empêche pas bien entendu de chercher sur le net et de tester . Mais malgré de nombreuses tentatives, le code ne fonctionne surement pour des raisons basiques.

Déjà pour être sur j'ai 4 Feuilles. Je souhaite copier des données de la feuille 3 vers la feuille 4. Je dois bien écrire mon code VBA dans un module ou dans une des feuilles?

Voici ce que j'ai écris:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Testcopie1()
 
Workbooks ("Pompage v3.xls")
    .Sheets ("Matrice")
    .Range ("M7:O7"), Range("M65536:O65536").End(xlUp)
    .Copy (Workbooks("Pompage v3.xls"))
    .Sheets ("Test")
    .Range ("L5")
 
End Sub

Je souhaite copier toutes les données des colonnes M,N,O à partir de la ligne 7 de la feuille Matrice vers la Feuille Test à la cellule L5 (coin haut gauche du début des données).

Ce que j'aimerais c'est que ce code après ne me copie que les lignes non vides.
Ci joint un exemple du tableau sur lequel je travail.
Feuil1: je souhaite copier les 3 colonnes vertes
Feuil2: je souhaiterais que les données soient copiées en supprimant les lignes vides (ou égale à zéro)

(pourquoi le fichier que je joins est supprimé?)


Merci d'avance pour votre aide

[Guiiand]

Bonjour,

Voici qui devrait répondre à ton 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
Sub Testcopie1()
 
Workbooks("Pompage v3.xls").Range("M7:O" & Sheets("Matrice").Range("M" & Rows.Count).End(xlUp).Row) _
    .Copy Destination:=Workbooks("Pompage v3.xls").Sheets("Test").Range("L5")
 
fin = ThisWorkbook.Sheets("Test").Range("L" & Rows.Count).End(xlUp).Row
 
For i = fin To 5 Step -1
    If Range("L" & i) = "" Then
        Range("L" & i).EntireRow.Delete
    End If
Next
 
 
End Sub

[Razekiel_]

Salut et merci pour ta participation.

Tes lignes de codes 3 et 4 présentent une erreur quand je lance la macro (erreur 438)

[Guiiand]

Re,

Autant pour moi, un oublie de ma part. J'ai remanié un poil le code pour qu'il soit plus lisible.

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 Testcopie1()
 
Dim ShM As Worksheet, ShT As Worksheet
 
Set ShM = Workbooks("Pompage v3.xls").Sheets("Matrice")
Set ShT = Workbooks("Pompage v3.xls").Sheets("Test")
 
    ShM.Range("M7:O" & ShM.Range("M" & Rows.Count).End(xlUp).Row) _
        .Copy Destination:=ShT.Range("L5")
 
    fin = ShT.Range("L" & Rows.Count).End(xlUp).Row
 
    For i = fin To 5 Step -1
        If ShT.Range("L" & i) = "" Then
            ShT.Range("L" & i).EntireRow.Delete
        End If
    Next
 
 
End Sub

[Razekiel_]

Salut,

merci pour ton aide.
Juste une petite précision mais le code tu l'inseres ou?

Dans Microsoft Excel Objects/Feuil3 ?
Ou
Dans Modules/Modules 1 ? (je les ai mises là)

Quand j’exécute le code, la mise en forme des trois colonnes est respectée mais les données n'apparaissent pas.
Pour être plus exacte, elles apparaissent et disparaissent aussitôt (comme un clignotement)....

Est ce que dans le code, il est possible d'inclure la copie automatique?
Je ne sais pas si tu as regardé mon fichier exemple en premier post mais les données des trois colonnes varient en fonction de deux données (DEBIT et PROFONDEUR), j'aimerais (si possible bien entendu ) que les données soient automatiquement copiées quand ces deux valeurs changent.

Penses tu que ce soit possible? ca ferait mon plus grand bonheur.

[Guiiand]

Re,

Je n'ouvre jamais les fichiers, on ne sait jamais.

De ce que je comprends, les cellules copiées contiennent des formules, et tu veux les valeurs. C'est ca ?

Si c'est le cas la nouvelle mouture du code devrait marcher. J'ai également programmé un évenement à adapter à ta feuille pour que la copie se fasse lorsque les valeurs debit et profondeur change.

Voici le 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
Private Sub Worksheet_Change(ByVal Target As Range)
 
'A copier dans le code de la feuille matrice
 
Dim Debit As Range
Dim Profondeur As Range
 
Set Debit = Range("A1") 'a toi de mettre l'adresse qui va bien
Set Profondeur = Range("A2") 'a toi de mettre l'adresse qui va bien
 
If Not Intersect(Target, Debit) Is Nothing Or Not Intersect(Target, Profondeur) Is Nothing Then
    Call Testcopie1
End If
 
End Sub

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
Sub Testcopie1()
 
'A copier dans un Module comme tu l'as fais
 
Dim ShM As Worksheet, ShT As Worksheet
 
Set ShM = Workbooks("Pompage v3.xls").Sheets("Matrice")
Set ShT = Workbooks("Pompage v3.xls").Sheets("Test")
 
    ShM.Range("M7:O" & ShM.Range("M" & Rows.Count).End(xlUp).Row).Copy
    ShT.Range("L5").PasteSpecial Paste:=xlPasteValues
 
    fin = ShT.Range("L" & Rows.Count).End(xlUp).Row
 
    For i = fin To 5 Step -1
        If ShT.Range("L" & i) = "" Then
            ShT.Range("L" & i).EntireRow.Delete
        End If
    Next
 
End Sub

PS : pour une prochaine fois, précise dans ta demande si tu veux copier des valeurs, des formules etc ... car cea ne se gère pas de la même manière.

[Razekiel_]

Salut, merci pour tes réponses.
J'ai testé cela tout à l'heure.

Oui en effet ce sont des valeurs que je souhaite copier. je penserais à la préciser pour la prochaine fois. Autant pour moi.

C'est nikel ca fonctionne

Me permet tu de te solliciter pour une dernière chose...Vu que tu n'as pas ouvert le fichier que j'ai joins au premier poste tu n'as pas pu le voir.
Mais je voulais savoir s'il était possible de mettre en oeuvre le faite que quand les cellules sont copiées toutes les lignes "vides" mais qui contiennent zero soient supprimées?

En gros

1000 1000 1000

3000 3000 3000
4000 4000 4000


7000 7000 7000

Soit copier en ça

1000 1000 1000
3000 3000 3000
4000 4000 4000
7000 7000 7000

[Guiiand]

Re,

Pas de probleme, remplace la ligne

Code :

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

If ShT.Range("L" & i) = "" Then

par

Code :

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

If ShT.Range("L" & i) = "" Or ShT.Range("L" & i) = 0 Then

Mais meme reflexion que précemment, 0 et vide sont 2 choses différentes, attention à utiliser les bons mots si tu veux les bonnes réponses.

[Razekiel_]

salut,

Vraiment un grand merci.
Il garde la mise en forme uniquement pour la première ligne, mais c'est pas important.

Pour ma culture VBA si je désire copier du texte contenu sur les même lignes qui sont copiées mais qui appartient à une autre colonne je dois renseigner cela dans ces lignes de code?

Code :

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

1
2
3
4
ShM.Range("M7:O" & ShM.Range("M" & Rows.Count).End(xlUp).Row).Copy
    ShT.Range("L5").PasteSpecial Paste:=xlPasteValues
 
    fin = ShT.Range("L" & Rows.Count).End(xlUp).Row

Exemple:

Code :

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

1     6 7 8

On copie actuellement 6,7,8. SI je souhaite copier également 1?

Oui c'est pour cela que j'ai indiqué "vide" entre guillemet. J'ai appris que c'était deux choses radicalement différentes sur excel.

Merci pour toute dans tous les cas. Si tu passes par Nantes, je te paye un coup

[Guiiand]

Re,

Il me manque des infos,

-En quelle colonne est ton 1 ?
-Ou veux tu qu'il soit coller ? dans la colonne L de la feuille test, ou ailleurs.
-Veux conserver l'écart de colonnes entre 1 et 6 ou le supprimer ?
-Si tu veux conserver l'ecart, qu'advient il des données (conservées ? supprimées ?)

Et fais gaffe pour le verre, j'habite reze

[Razekiel_]

Re,
-En quelle colonne est ton 1 ?

J'ai pas de besoin pour l'instant mais c'était pour réussir à le faire moi même si j'en ai besoin, ce qui sera surement le cas.
Le 1 signifiait la colonne 1. Admettons que l'on a copié les valeurs en M7:N7:O7 et que je souhaite également avoir C7 (qui est du texte)

-Ou veux tu qu'il soit coller ? dans la colonne L de la feuille test, ou ailleurs.

Je souhaite conserver les cellules où M7:O sont copiées (L5), mais j'aimerais que les données de C soient en Q3 par exemple

-Veux conserver l'écart de colonnes entre 1 et 6 ou le supprimer ?

du coup aucune conservation d'écart ne m'intéresse

-Si tu veux conserver l'ecart, qu'advient il des données (conservées ? supprimées ?)

je veux simplement que les valeurs soient copiées

Et fais gaffe pour le verre, j'habite reze

Enorme, sacré coïncidence.

[Guiiand]

Bonjour,

Désolé, beaucoup de boulot la semaine dernière.

Je reprends ton problème dès que j'ai un peu de temps