Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

PROBLEME AVEC UN MACRO

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion MAHARO
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

MAHARO

XLDnaute Nouveau
Bonjour,

Je sollicite votre aide sur ce macro,
ca ne renvoie que les titres sur la premiere ligne dans la feuille FEUIL1 et les titres dans la feuille FEUIL2
s'il vous plait

Salutation

VB: 
Sub d1_a1()
    Dim i As Integer, derlig As Integer, j As Integer
    derlig = Range("A" & Rows.Count).End(xlUp).Row
    With Sheets("Recap")
        For i = 1 To derlig
            .Cells(i, 2) = Sheets("FEUIL1").Cells(i, 2)
            .Cells(i, 3) = Sheets("FEUIL1").Cells(i, 3)
            .Cells(i, 4) = Sheets("FEUIL1").Cells(i, 4)
            .Cells(i, 5) = Sheets("FEUIL1").Cells(i, 5)
            .Cells(i, 6) = Sheets("FEUIL1").Cells(i, 6)
            .Cells(i, 7) = Sheets("FEUIL1").Cells(i, 7)
            .Cells(i, 8) = Sheets("FEUIL1").Cells(i, 8)
            .Cells(i, 9) = Sheets("FEUIL1").Cells(i, 9)
        Next
            Sheets("Recap").Select
            For j = 1 To derlig
                If .Cells(j, 2) <> " " Then
                    .Cells(j + 1, 2) = Sheets("FEUIL2").Cells(j, 2)
                    .Cells(j + 1, 3) = Sheets("FEUIL2").Cells(j, 3)
                    .Cells(j + 1, 4) = Sheets("FEUIL2").Cells(j, 4)
                    .Cells(j + 1, 5) = Sheets("FEUIL2").Cells(j, 5)
                    .Cells(j + 1, 6) = Sheets("FEUIL2").Cells(j, 6)
                    .Cells(j + 1, 7) = Sheets("FEUIL2").Cells(j, 7)
                    .Cells(j + 1, 8) = Sheets("FEUIL2").Cells(j, 8)
                    .Cells(j + 1, 9) = Sheets("FEUIL2").Cells(j, 9)
                End If
            Next
    End With
End Sub
 
Trier par date Trier par votes
Bonsoir le fil

MAHARO
Au pif (puisque pas de fichier exemple fourni)
Essaies avec cette modif
derlig = Sheets("Recap").Range("A" & Rows.Count).End(xlUp).Row

PS: Dernier conseil, dimensionne tes variables en As Long
 
Vote positif 0 Vote négatif
Merci pour la reponse mais ca ne resout pas la situation
je vais joindre le fichier pour exposer le probleme
Je vais quand meme expliquer quelque etapes que j"ai fait avant d"en arriver a la demande d"aide
em utilisant ce code
VB: 
Sub d_a()
    Dim i As Integer, derlig As Integer, j As Integer
    derlig = Range("A" & Rows.Count).End(xlUp).Row
    With Sheets("RECAP")
        For i = 1 To derlig
            .Cells(i, 2) = Sheets("FEUIL1").Cells(i, 2)
            .Cells(i, 3) = Sheets("FEUIL1").Cells(i, 3)
            .Cells(i, 4) = Sheets("FEUIL1").Cells(i, 4)
            .Cells(i, 5) = Sheets("FEUIL1").Cells(i, 5)
            .Cells(i, 6) = Sheets("FEUIL1").Cells(i, 6)
            .Cells(i, 7) = Sheets("FEUIL1").Cells(i, 7)
            .Cells(i, 8) = Sheets("FEUIL1").Cells(i, 8)
            .Cells(i, 9) = Sheets("FEUIL1").Cells(i, 9)
        Next
    End with
        with sheets("RECAP")
         For i = 1 to derlig
            If .Cells(i, 2)<>" " then
                .Cells(i, 2) = Sheets("FEUIL2").Cells(i, 2)
                .Cells(i, 3) = Sheets("FEUIL2").Cells(i, 3)
                .Cells(i, 4) = Sheets("FEUIL2").Cells(i, 4)
                .Cells(i, 5) = Sheets("FEUIL2").Cells(i, 5)
                .Cells(i, 6) = Sheets("FEUIL2").Cells(i, 6)
                .Cells(i, 7) = Sheets("FEUIL2").Cells(i, 7)
                .Cells(i, 8) = Sheets("FEUIL2").Cells(i, 8)
                .Cells(i, 9) = Sheets("FEUIL2").Cells(i, 9)
            End If
        Next
    End With
End Sub
Mais le resultat c'est que en premier temps il affiche les donnees du feuil1 et l'efface en meme temps et apres remplace les donnees feuil1 en donnes feuilles deux
Salutation,
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re

Dans ce cas, si j'étais moi, je ferais peut-être une macro de ce genre
VB: 
Sub aTest()
Dim plg As Range
Sheets("FEUIL1").[A1].CurrentRegion.Copy Sheets("RECAP").[A2]
Sheets("FEUIL2").[A1].CurrentRegion.Copy Sheets("RECAP").Cells(Rows.Count, 1).End(3)(3)
Set plg = Sheets("RECAP").Columns(1).SpecialCells(xlCellTypeBlanks)
Range(Split(plg.Address, ",")(0)) = "FEUIL1"
Range(Split(plg.Address, ",")(1)) = "FEUIL2"
End Sub
 
Vote positif 0 Vote négatif
Re

Dans ce cas, il fallait le dire dès le message#1 car comme disait Nicolas
"Ce que l'on conçoit bien s'énonce clairement" 😉

PS: Et si j'étais moi, mais une nuit sans lune, je pourrais aussi ainsi l'écrire mon macro 😉
VB: 
Sub bTest()
Dim plg As Range, f As Worksheet, x As Range
Set f = Sheets("RECAP")
With Sheets("FEUIL1").[A1]
.CurrentRegion.Copy f.[A2]: f.[A1] = .Parent.Name
End With
Set x = f.Cells(Rows.Count, 1).End(3)(2)
With Sheets("FEUIL2").[A1]
x = .Parent.Name
.CurrentRegion.Copy x.Offset(1)
End With
End Sub
 
Vote positif 0 Vote négatif
Bonsoir le fil,

MAHARO
Les macros que je t'ai proposées donnent le même résultat que ce qu'on peut voir sur la feuille RESULTAT CIBLE
(mais les macros recopient les données sur la feuille RECAP)
Si ce n'est pas là, le but visé alors je recapépéte 😉
"Ce que l'on conçoit bien s'énonce clairement"

Donc en clair, donne de plus de détails et d'explications.
 
Vote positif 0 Vote négatif
Bonsoir,
Merci de s"interesser a mon sort ,en fait,je ne cherche pas a copier toute la plage , je joint le fichier , et dans l'onglet en vert "RESULTAT CIBLE (2)" se trouve le resultat que je cherche

Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir le fil,

MAHARO
On se rapproche du but avec ceci?
VB: 
Sub cTest()
Dim plg As Range, f As Worksheet, x As Range, l&
Set f = Sheets("RECAP")
With Sheets("FEUIL1").[A1]
.CurrentRegion.Copy f.[A2]: f.[A1] = .Parent.Name
End With
Set x = f.Cells(Rows.Count, 1).End(3)(2)
With Sheets("FEUIL2").[A1]
x = .Parent.Name
.CurrentRegion.Copy x.Offset(1)
End With
l = f.Cells(Rows.Count, "G").End(3).Row
f.Range(f.Cells(x.Row + 1, "H"), f.Cells(l, "I")).Delete Shift:=xlToLeft
End Sub
 
Vote positif 0 Vote négatif
Bonjour le fil,

MAHARO
Ou il faut harmoniser les structures de tes tableaux pour qu'ils soient identiques.
Ce qui simplifierait les choses pour la recopie sur la feuille RECAP.

On pourrait aussi envisager d'avoir les données sur une seule feuille puis de manipuler ces données avec un TCD (selon les besoins)
C'est cette piste que je suivrai si j'étais moi.
 
Vote positif 0 Vote négatif
J'aurai aime l'harmoniser mais ce qui ne serait possible,je sais que je peut copier ce que je veux dans la feuil1 en feuil1 bis , feuil 2 en feuil2 bis , et les fusionners dans recap en tant que plage , mais ca me creera beaucoup de feuil si je le fait
mais aussi pourraiez vous s'il vous plait expliquer le code?
VB: 
Sub cTest()
Dim plg As Range, f As Worksheet, x As Range, l&
Set f = Sheets("RECAP")'??????????????
With Sheets("FEUIL1").[A1]'??????????????
.CurrentRegion.Copy f.[A2]: f.[A1] = .Parent.Name'??????????????
End With
Set x = f.Cells(Rows.Count, 1).End(3)(2)'??????????????
With Sheets("FEUIL2").[A1]
x = .Parent.Name'??????????????
.CurrentRegion.Copy x.Offset(1)'??????????????
End With
l = f.Cells(Rows.Count, "G").End(3).Row'??????????????
f.Range(f.Cells(x.Row + 1, "H"), f.Cells(l, "I")).Delete Shift:=xlToLeft'??????????????
End Sub

Cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
146
Electron24
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
241
TooFatBoy
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
179
kiki29
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
471
job75
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
2 K
francescofrancesco
F
W
  • Question Question
XL 2016 Problème d'écriture avec Range(Cells(x,y), Cells(x+n,y))
Réponses
13
Affichages
163
Webperegrino
W
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
111
patricktoulon
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
135
sylvanu
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
174
CDALE
C
  • Question Question
Microsoft 365 datepicker dynamique intra userform(frame dynamique)(toute version d'excel )
2 3 4
Réponses
59
Affichages
792
Cousinhub
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
218
Abi23
A
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
973
Mody200
M
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
316
Piment
P
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
243
KRUG WOO
K
C
  • Question Question
Microsoft 365 Comptage cellule avec condition
Réponses
2
Affichages
124
CortoXls
C
  • Résolu(e)
XL 2016 VBA ListView UserForm - Help !
2
Réponses
25
Affichages
278
Dudu2
J
  • Question Question
Microsoft 365 Userform comboboxes indexés
Réponses
8
Affichages
233
jp26200
J
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
481
CortoXls
C
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
  • Question Question
XL 2021 Importer les données Access dans Excel
Réponses
2
Affichages
433
badraaliou4
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…