besoin d'un code VBA

R

Robert

Guest

• 23 Mai 2004

• #2

Salut Marion, salut le forum,

affecte la macro suivante à ton bouton, cela devrait correspondre à tes besoins.

Public Sub copie()
'remet à "tous" les filtres automatiques
Range("B7:G7").Select
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=6

'actualise la variable "ligne" (dernière ligne utilisée du tableau)
ligne = Range("B65536").End(xlUp).Row

'copie et colle
Range("B4:G4").Copy Destination:=Range("B" & ligne + 1)
End Sub

À plus,

Robert

 

Vote positif 0 Vote négatif

M

MARION

Guest

• 23 Mai 2004

• #3

Merci Robert, de cette réponse,un petit problème quand même, mais c'est de ma faute ce n'est pas une copie mais un couper qu'il me faut et uniquement sur les valeurs et pas sur le format.
Si tu peux me faire une petite retouche, je te remercie d'avance
A+ M

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 23 Mai 2004

• #4

Bonjour Marion, Robert

Et avec

Range("B" & ligne +1 ).value = Range("B4:G4").value
Range("B4:G4").ClearContents

Tu es contente ?

@+Jean-Marie

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 23 Mai 2004

• #5

Re salut Marion, salut Jean-Marie, salut le forum,

Jean-Marie te donne la bonne solution mais puisque j'y ai bossé aussi je t'envoie le fruit (ho la gueule du fruit ! Loule...) de mes lentes cogitations...

Public Sub copie()
'remet à "tous" les filtres automatiques
Range("B7:G7").Select
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=6

'actualise la variable "ligne" (dernière ligne utilisée du tableau)
ligne = Range("B65536").End(xlUp).Row

'copie et colle
Range("B4:G4").Copy
Range("B" & ligne + 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.HorizontalAlignment = xlCenter
Range("B" & ligne + 1).NumberFormat = "ddd-dd-mmm"
Range("B4:G4").ClearContents
ActiveCell.Select
End Sub


À plus,

Robert

 

Vote positif 0 Vote négatif

M

MARION

Guest

• 23 Mai 2004

• #6

bonjour a tous les deux, je pense que je suis contente; combleé tu veux dire.
un trés grand merci
A+ M
Ho j'oublie : de trés gros bisous a vous deux.

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 24 Mai 2004

• #7

Re: besoin d'un code VBA (AutoFilter Method ShowAllData)

Bonjour Robert, Jean Marie, Marion, Le Forum

Juste pour Robert... Je ne sais pas si ta grand-mère a un vélo jaune, mais pour "défiltrer" les AutoFilters... que tu n'allais pas jusqu'en colonne IV !!!.... Je ne te donne pas le Maillot Jaune sur ce coup là !

Sub RobertMaillotJaune()
With Sheets(1)
If .FilterMode = True Then .ShowAllData
End With
End Sub

Remarque avec "'remet à "tous" tu n'étais pas si loin de "ShowAllData" suffisait de le faire en anglais

Bon LetsGo Monaco !!! et bon App
@+Thierry

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 24 Mai 2004

• #8

Salut à tous, Marion, Jean-Marie, Thierry, le forum,

C'est pas là que je t'attendais Thierry. Merci encore pour la leçon et dommage que l'enregistreur de macros ne soit pas aussi efficace...

Je na sais pas pourquoi mais j'ai senti une pointe d'énervement dans ce post alors que le "vélo jaune de ma grand-mère" se voulait simplement humoristique...

À plus,

Robert

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 24 Mai 2004

• #9

Bonjour Robert,

Oh non loin de là !... même pas un soupson d'énervement, sinon j'aurais plutôt utilisé un smiley tout rouge comme quand on fait une erreur dans mes table de multiplication!

Non non, je suis resté dans le jaune et le maillot jaune était justement pour rester dans le même style humoristique, donc ne te fait aucun souci Robert, je rigole bien derrière mon écran (surtout en t'imaginant faire Selection.AutoFilter Field:=1 jusqu'à IV, soit 256, là tu aurais sûrement le maillot blanc à poids rouges !)

Bon Aprèm
@+Thierry

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 24 Mai 2004

• #10

Désolé Marion, mais on fait un peu notre "popotte" en apparté. C'est pas très poli mais ça évite d'ouvrir un fil sans intérêt...

Juste pour dire à Thierry que je retrouve le ton "foutage de gueule" qui m'a toujours plu dans ces posts. Ouf! Je croyais vraiment que je l'avais énervé l'animal...

À plus,

Robert

 

Vote positif 0 Vote négatif