une petite question toute simple, enfin pas pour moi

[wilplan]

Bonjour, et Bonne Année

Je ne vous dirais pas que je débute vous allez vite vous en rendre compte, mais j'ai le désir de bien faire et il faut bien commencer par le commencement.

Voilà, ma question:

j'ai crée ou plutôt "bricolé" une procédure qui marche très bien pour ce que je veux en faire, auquelle j'ai ajouté un bouton pour qu'elle s'éxécute.

Si je change le bouton de feuille en lui affectant le même formule, ça ne marche plus.
Qu'est-ce que je n'ai pas su faire? merci à ceux qui essaieront de m'aider
Bonne journée

 

[pascal21]

Re : une petite question toute simple, enfin pas pour moi

bonjour et bienvenue sur le site
coir dans ton code si il n'y a pas une ligne du genre
with sheets("feuil1")
feuil1 est un exemple biensur
ou alors mets nous le bout de code de ton bouton
parce que là c'est plutôt du coté de chez madame irma qu'il faut regarder !!!

 

[phlaurent55]

Re : une petite question toute simple, enfin pas pour moi

Bonjour wilplan,

pourrais-tu joindre ton fichier pour plus de compréhension de ton problème posé

à+
.

Edit: Bonjour Pascal

 

[wilplan]

Re : une petite question toute simple, enfin pas pour moi

Merci Pascal et Phlaurent de votre accueil et de votre réponse si rapide.

je vais essayer d'être plus clair,

le code est le suivant:

Sub CommandButton3_Click()
Application.ScreenUpdating = False
Dim don
Dim ligne
don = 1
compteurFeuille3 = 1
For i = 6 To 106
If Cells(i, 5) = don Then
Worksheets(3).Range("A" & i & ":G" & i).Copy
Worksheets(5).Range("C1" & compteurFeuille3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

compteurFeuille3 = compteurFeuille3 + 1
End If
Next i
Worksheets(3).Range("A2").Select
Worksheets(5).Select
End Sub
ce code est sur la feuille3 , si je crée un bouton sur la feuille 1 avec ce même code ça ne marche pas.

 

[pascal21]

Re : une petite question toute simple, enfin pas pour moi

Worksheets(3).Range("A" & i & ":G" & i).Copy
Worksheets(5).Select
re
bonjour phlaurent
change ça en

Worksheets([COLOR="Red"]1[/COLOR]).Range("A" & i & ":G" & i).Copy

pour la feuille 1

 

[wilplan]

Re : une petite question toute simple, enfin pas pour moi

Merci pour ton aide Pascal
j'ai remplacé Worksheets(3) par worksheets(1) et supprimé Worksheets(5).select

mais peut-être n'étais-ce pas ce qu il fallait faire car ça ne marche toujours pas

 

[Papou-net]

Re : une petite question toute simple, enfin pas pour moi

Bonjour wilplan, les participants,
Et bonne année à tous,

wilplan,

Puisque tu veux lancer ta macro dans la feuille sur laquelle se situe ton bouton, remplaces

Worksheets(1).Range("A" & i & ":G" & i).Copy

par

ActiveSheet.Range("A" & i & ":G" & i).Copy

Tu auras de plus l'avantage d'une seule et même macro lancée par plusieurs boutons différents.

Par ailleurs, je ne comprends pas l'utilité de ces 2 lignes :

Worksheets(3).Range("A2").Select
Worksheets(5).Select

Pourquoi sélectionner la cellule A2 de la feuille 3, et tout de suite après, sélectionner la feuille 5, sans aucune action entre les deux ?

Espérant t'avoir aidé.

Cordialement.

 

[pascal21]

Re : une petite question toute simple, enfin pas pour moi

re
c'est sur en supprimant worksheets(5)
tu n'indique plus où coller ta copie

Worksheets(3).Range("A" & i & ":G" & i).Copy

sélectionne la feuille et la zone à copier

Worksheets(5).Range("C1" & compteurFeuille3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

indique la feuille et la zone où coller la copie ainsi que les consignes de copie

 

[pascal21]

Re : une petite question toute simple, enfin pas pour moi

bonjour papou-net
wilplan tu devrais quand même nous mettre un petit bout de classeur avec le code
pour que l'on puisse nettoyer un peu ce code
sans te faire effacer ce qui est utile
parce que visiblement tu l'as recopier quelque part
n'y vois pas là un reproche, on le fait tous

 

[wilplan]

Re : une petite question toute simple, enfin pas pour moi

Bonjour Papou-net et merci de ton aide, merci aussi Pascal et Phlaurent

j'ai pourtant l'impression de faire ce que vous m'indiquez mais c'est pas une réussite, aussi si je peux encore me permettre de vous solliciter je vais joindre mon fichier pour que celà soit plus clair pour vous.

 

[pascal21]

Re : une petite question toute simple, enfin pas pour moi

en nous expliquant ce que tu souhaite faire exactement
copie feuille3 vers feuille 5
et/ou copie feuille1 vers feuille 5
ou
depuis feuille 1 (avec le bouton) copie feuille3 vers feuille 5

 

[wilplan]

Re : une petite question toute simple, enfin pas pour moi

je dois m'absenter un moment, je vais raccourcir mon fichier pour vous l'envoyer
bon appétit et à bientôt
encore merci pour votre patience

 

[wilplan]

Re : une petite question toute simple, enfin pas pour moi

J'ai du viré pas mal de chose pour que le fichier soit allégé au maximum, vous trouverez ma requête en page accueil
merci

 

[Papou-net]

Re : une petite question toute simple, enfin pas pour moi

Re-bonjour,

Si j'ai bien compris, tu peux modifier ton code ainsi :

Feuille 1

Sub CommandButton3_Click()
alerte
End Sub

Feuille 3

 Sub CommandButton3_Click()
alerte
End Sub

Module 4

Sub alerte()
Application.ScreenUpdating = False
Dim don
    Dim ligne
    don = 1
    compteurFeuille3 = 1
    With Feuil3
      For i = 6 To 106
        If .Cells(i, 5) = don Then
            .Range("A" & i & ":G" & i).Copy
            Sheets(5).Range("C1" & compteurFeuille3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            compteurFeuille3 = compteurFeuille3 + 1
        End If
      Next i
    End With
End Sub

End Sub

Espérant t'avoir aidé.

Cordialement.

 

[wilplan]

Re : une petite question toute simple, enfin pas pour moi

Merci Papou-net , c'est vraiment ce que je voulais, merci aussi à ceux qui ont participé à cette discution , vous avez été excellent dans vos détails j'ai vraiment appris grace à vous , néanmoins il me reste encore un sacre chemin à parcourir , vous allez encore m'avoir sur le dos un moment
à bientôt et merci beaucoup