Pb association macros

BRUNO62 · 15 Avril 2010

Bonsoir au forum,

Besoin d'aide, PAR AVANCE MERCI.
Je désire combiner plusieurs macros mais je rencontre un problème.
Cela ne fonctionne pas.

😀feuil1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Rows("1:3").Select
Selection.Delete Shift:=xlUp
Rows("2:2").Select
Selection.Delete Shift:=xlUp
For i = Range("J65536").End(xlUp).Row To 2 Step -1
If Cells(i, 10).Value = "1" Or Cells(i, 10).Value = "2" Or Cells(i, 10).Value = "3" Then
Cells(i, 2).EntireRow.Delete Shift:=xlUp

😕 je voudrais associer à celle du dessus celle du dessous qui reprendrait des données d'une feui2

Columns("K:K").Select
Selection.Insert Shift:=xlToRight
ActiveWindow.ScrollColumn = 10
Columns("W:W").Select
Selection.Copy
Columns("K:K").Select
ActiveSheet.Paste

End If
Next
End Sub
A+

Excel-lent · 15 Avril 2010

Re : Pb association macros

Bonjour BRUNO62,

Tu pose une question à Mme IRMA et sa boule de crystal... et moi, je me permet d'intervenir!

Toute mes excuses lol

Sinon, plus sérieusement, tu crois pas que tu pourrais être plus précis dans ta question?

Tu pourrais par exemple :
1/ Dire
-> ce que fais ta macro
-> le bug rencontré (les symptômes)
-> ce que tu voudrais que ta macro fasse

2/ Joindre ton fichier qu'on puisse :
-> voir de notre propre yeux les symptôme
-> voir le contexte
-> essayer notre solution pour voir si le résultat obtenu est conforme à ce que tu attends.

Sans tout cela, je ne peux juste te répondre :

Code:

Sub MacroCorrigéEtSimplifié()
[COLOR="Green"]' Macro enregistrée le 15/04/2010 par Excel-lent[/COLOR]

Range("1:3,5:5").Delete
    
For i = [J65536].End(xlUp).Row To 2 Step -1
    If Cells(i, 10) = 1 Or Cells(i, 10) = 2 Or Cells(i, 10) = 3 Then
        Rows(i).Delete
    End If
Next i

Columns("K:K").Insert
Columns("W:W").Select
Selection.Copy
Columns("K:K").Select
ActiveSheet.Paste


End Sub

Espérant que ma réponse tout aussi concise que ta question te convienne?

En tout cas elle fonctionne, elle fait ce que ta macro aurais du faire (du moins d'après ce que j'en ai compris). J'en ai profité pour enlever une bonne partie des trucs inutiles, ainsi que ceux qui font perdre du temps dans le temps d'exécution de la macro.

A te lire

Bonne fin de soirée

BRUNO62 · 15 Avril 2010

Re : Pb association macros

Bonsoir Excel-lent,

C'est excellent cela fonctionne encore grand merci.

A+

BRUNO62 · 15 Avril 2010

Re : Pb association macros

Re, effectivement cela fonctionne mais je me suis mal exprimé !
Je souhaiterais inserer une colonne vide sur une autre feuille nommé 2
Alors que dans cet exemple la colonne est créee sur la feuille 1

feuille1
Sub MacroCorrigéEtSimplifié()
' Macro enregistrée le 15/04/2010 par Excel-lent

Range("1:3,5:5").Delete

For i = [J65536].End(xlUp).Row To 2 Step -1
If Cells(i, 10) = 1 Or Cells(i, 10) = 2 Or Cells(i, 10) = 3 Then
Rows(i).Delete
End If
Next i

feuille2
Columns("K:K").Insert
Columns("W:W").Select
Selection.Copy
Columns("K:K").Select
ActiveSheet.Paste

End Sub

Excel-lent · 16 Avril 2010

Re : Pb association macros

BRUNO62 à dit:
je me suis mal exprimé !

Je dirais plutôt : pas exprimé! Ou si peu! 😀

(je sais... je suis taquin ce soir 🙄)

Code:

Sub MacroCorrigéEtSimplifié()
[COLOR="Green"]' Macro enregistrée le 15/04/2010 par Excel-lent[/COLOR]

Range("1:3,5:5").Delete
    
For i = [J65536].End(xlUp).Row To 2 Step -1
    If Cells(i, 10) = 1 Or Cells(i, 10) = 2 Or Cells(i, 10) = 3 Then
        Rows(i).Delete
    End If
Next i

[COLOR="Blue"][B]With Sheets("Feuil2")[/B][/COLOR]
   [B][COLOR="Blue"].[/COLOR][/B]Columns("K:K").Insert
   [B][COLOR="Blue"].[/COLOR][/B]Columns("W:W").Select
   Selection.Copy
   [B][COLOR="Blue"].[/COLOR][/B]Columns("K:K").Select
   ActiveSheet.Paste

[B][COLOR="Blue"]End With[/COLOR][/B]

End Sub

Partie à rajouter si ta macro est sur la "feuil1" ou ceci :

Code:

Sub MacroCorrigéEtSimplifié()
[COLOR="Green"]' Macro enregistrée le 15/04/2010 par Excel-lent[/COLOR]

Range("1:3,5:5").Delete
    
For i = [J65536].End(xlUp).Row To 2 Step -1
    If Cells(i, 10) = 1 Or Cells(i, 10) = 2 Or Cells(i, 10) = 3 Then
        Rows(i).Delete
    End If
Next i

[COLOR="Blue"][B]Sheets("Feuil2").Select[/B][/COLOR]
   Columns("K:K").Insert
   Columns("W:W").Select
   Selection.Copy
   Columns("K:K").Select
   ActiveSheet.Paste

End Sub

Tout dépend sur quel feuille tu veux être, une fois la macro fini!

A te lire

Cordialement

BRUNO62 · 16 Avril 2010

Re : Pb association macros

Bonjour Excel-lent et le forum,

Par rapport à ta question je souhaiterais être sur la feuil2 car je dois poursuivre sa construction.

J'ai essayé la macro modifiée par contre cela échoue et m'indique 1004 la métode Select de la classe Range a échoué.

Par avance merci
A+

Excel-lent · 16 Avril 2010

Re : Pb association macros

Bonsoir Bruno62,

😡

-> Pourquoi tu nous envoie pas ton fichier??? Au lieu de mettre 5 minutes à trouver la réponse, j'ai met 15! Bref, 10mn que j'aurais pu consacrer à une autre personne dans le besoin... et qui sait... qui aura pris la peine d'être plus complète dans sa question

-> Pourquoi tu ouvre un DEUXIEME sujet de discussion sur le MEME problème? Merci de lire Lien supprimé

------------------------------------------
Pour ton problème :
-> clic sur "ALT"+"F11"
-> efface la macro mise sur la "feuil1"
-> clic sur "ThisWorkbook"
-> colle sur la zone de droite la macro ci-dessous

Code:

Sub MacroCorrigéEtSimplifié()
[COLOR="Green"]' Macro enregistrée le 16/04/2010 par Excel-lent[/COLOR]


With Sheets("Feuil1")

    .Range("1:3,5:5").Delete
            
    For i = .[J65536].End(xlUp).Row To 2 Step -1
        If .Cells(i, 10) = 1 Or .Cells(i, 10) = 2 Or .Cells(i, 10) = 3 Then
            .Rows(i).Delete
        End If
    Next i

End With

Sheets("Feuil2").Select
    Columns("W").Select
    Selection.Copy
    Columns("K").Select
    ActiveSheet.Paste

End Sub

-> n'ayant pas ton fichier, je n'ai pu tester la macro dans son élément, mais normalement c'est ok. En tout cas, sur mon fichier ça fonctionne.

A te lire

Cordialement

PS. 1 : mes remarques misent dans la première partie de ma réponse, c'est juste à titre informatif, je ne t'en veux pas du tout 😉 J'ai bien vu que étais nouveau sur le forum. Il faut bien apprendre un jour.

PS. 2 : désolé si la réponse tarde un peu à venir - mais comme indiqué dans la charte que normalement tu as maintenant lu - nous sommes tous bénévoles, donc on a une vie professionnelle et/ou personnelle à côté.

BRUNO62 · 16 Avril 2010

Re : Pb association macros

Bonsoir Excel-lent,

Désolé d'avoir ouvrir une seconde discussion, la raison est j'ai passsé beaucoup de temps sur cette recherche et je n'abouti à rien sachant que je veux avancé car la suite est assez lourde.

J'ai recopié la macro dans "ThisWorkbook"
Toutes les feuilles sont vierges.
J'ignore comment lancée cette application ?

Merci, de votre aide
A+

Excel-lent · 16 Avril 2010

Re : Pb association macros

Bonsoir Bruno62,

BRUNO62 à dit:
Désolé d'avoir ouvrir une seconde discussion, la raison est j'ai passsé beaucoup de temps sur cette recherche et je n'abouti à rien

T'inquiète, étant donné le nombre de membres de ce forum, il y aura toujours quelqu'un qui arrivera à te dépanner.

Pour lancer une macro, il existe de nombreuses possibilitées! Après tout dépend de tes envies, tes impératifs.

Voici quelques méthodes de déclenchement de macro :
-> le plus classique : en cliquant sur un bouton
-> en cliquant sur un dessin
-> en cliquant dans une cellule.
-> en cliquant dans une zone (ensemble de cellules contigus)
-> en fonction d'une saisie (par exemple déclencher la macro quand l'utilisateur saisie dans une cellule (n'importe laquelle) une valeur, un mot convenu à l'avance.
-> en fonction d'une saisie dans une cellule
-> en fonction d'une saisie dans une zone
-> en faisant un clic droit
-> en faisant un clic gauche
-> en faisant un double clic
-> via une UserForm
-> ...

Bref, comme tu le vois, il existe des tonnes de solutions pour lancer une macro. Dis nous laquelle te convient et on te donnera la marche à suivre.

Comme il existe encore pleins d'autres solutions pour lancer une macro, si ce n'est pas dans la liste, n'hésite pas à nous dire tes besoins, et nous te dirons si c'est possible et si oui comment faire (soit précis et détaillé dans ta demande 😉).

A te lire.

Bonne soirée

BRUNO62 · 16 Avril 2010

Re : Pb association macros

Re,

Par rapport à la macro citée ci-dessous😕, je rencontre un problème lorsque je lance l'application en double clic
Sur la feuille 1, la macro fonctionne normalement les modif se font sur la feuille 1 et 2.
Par contre sur la feuille 2, la macro fonctionne partiellement. Les modif se font que sur la feuille 2.

Sub MacroCorrigéEtSimplifié()
' Macro enregistrée le 16/04/2010 par Excel-lent

With Sheets("Feuil1")

.Range("1:3,5:5").Delete

For i = .[J65536].End(xlUp).Row To 2 Step -1
If .Cells(i, 10) = 1 Or .Cells(i, 10) = 2 Or .Cells(i, 10) = 3 Then
.Rows(i).Delete
End If
Next i

End With

Sheets("Feuil2").Select
Columns("W").Select
Selection.Copy
Columns("K").Select
ActiveSheet.Paste

End Sub

Par avance, merci
A+

Excel-lent · 17 Avril 2010

Re : Pb association macros

Bonsoir BRUNO62,

Quelque soit la méthode de lancement de la macro, cela ne joue pas sur la macro.

La méthode de lancement que tu as retenu n'est pas la plus facile à mettre en place. Tu as dû tomber dans un des pièges.

Sur ce coup, sans le fichier, même avec toute la bonne volonté du monde, impossible de trouver ou deviner, l'endroit où tu t'es trompé (même si j'ai déjà une petite idée).

Dans l'attente de ton fichier.

A te lire

Pb association macros

BRUNO62

XLDnaute Occasionnel

Excel-lent

XLDnaute Barbatruc

BRUNO62

XLDnaute Occasionnel

BRUNO62

XLDnaute Occasionnel

Excel-lent

XLDnaute Barbatruc

BRUNO62

XLDnaute Occasionnel

Excel-lent

XLDnaute Barbatruc

BRUNO62

XLDnaute Occasionnel

Excel-lent

XLDnaute Barbatruc

BRUNO62

XLDnaute Occasionnel

Excel-lent

XLDnaute Barbatruc

Discussions similaires

Pb association macros

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency