Comment dire en VBA?

Eric C

XLDnaute Barbatruc

• 17 Mai 2006

• #2

Bonsoir le forum
Bonsoir flo2002

Une tite macro à améliorer :

Code:

Sub copie()
Range('A2').CurrentRegion.Select 'De la feuil en cours
  Selection.Copy
    Sheets('Feuil2').Select
    Range('A2').Select 'Recopie depuis la cell A2
    ActiveSheet.Paste
End Sub

Bonne soirée à toutes & à tous 😉

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 17 Mai 2006

• #3

Salut Flo2002, eric

Eric, les sélections sont inutiles, ton code peut s'écrire plus simplement. J'ai ajouté la copie uniquement de la colonne A car j'ai cru comprendre que c'est ce que désire flo.

Cordialement, A+

Code:

Sub copie()
Range('A2').CurrentRegion.Columns(1).Copy Destination:=Sheets('Feuil2').Range('A2')
End Sub

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 17 Mai 2006

• #4

Bonsoir le Forum, Flo, Eric C, Yeahou,
Je suis débutant bas de gamme c'est vrai, surtout en vba, mais quand je vois des gros minets sortir des codes comme ça (sur une seule ligne en plus), je me hérisse, je miiaaauuuuule; Que dis-je je huuuurrrlllllle.
Bonne soirée à vous tous les zamis.

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 17 Mai 2006

• #5

Miaow Marc
c'est vrai que j'aime bien condenser et pourquoi faire en dix lignes ce que l'on peut faire en 1.
Maintenant, si tout le monde se met à miauler, on va effrayer les minettes! 😉
A+

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 17 Mai 2006

• #6

au fait, Marc, pourquoi la cigogne? des racines alsaciennes?

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 18 Mai 2006

• #7

Merci à tous je vais essayer ca ce matin. Je vous tiens au courant car je crois je vais acoir besoin de vous!

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 18 Mai 2006

• #8

Bonjour à vous et bonne journée,
Yeahou : Non pas vraiment hélas, simplement pour la fidélité qu'elles représentent.
Au plaisir.

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 18 Mai 2006

• #9

Bonjour le forum, Marc,Yeahou et les autres,

je met un petit fichier pour essayer de montrer la macro que je voudrais faire.
Chaque petite information est intéressante pour moi alors n'hésiter surtout pas.

Tout conseil est le bienvenu!

merci d'avance!



Normale, j'ai oublier le fichier! un peu dur ce matin comme meme! [file name=macro_20060518092633.zip size=6595]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/macro_20060518092633.zip[/file]

Message édité par: flo2002, à: 18/05/2006 09:26

 

Pièces jointes

• macro_20060518092633.zip

  6.4 KB · Affichages: 30

Vote positif 0 Vote négatif

A

AV

Guest

• 18 Mai 2006

• #10

Ave,

''..je met un petit fichier pour essayer de montrer la macro que je voudrais faire...''

A la vue de ton fichier, il s'agit ni plus ni moins d'extraire les enregistrements uniques de ''Feuil2'' en ''Feuil''. Il y a l'outil pour ça dans XL : le filtre élaboré avec extraction sans doublons.
Rappel : Il faut partir de la feuille destination pourlancer la fonctionnalité.
Un petit coup d'enegistreur de macros et tu auras fait le plus gros du boulot. C'est le passage ''obligé'' pour l'apprentissage du vba.
Autre remarque : ta somme en ''Feuil1'' est, on ne peut plus mal placée : jamais au-dessu ou au-dessous des données.
Là aussi, je t'invite à te servir d'un outil existant pour faire une synthèse : le tableau croisée dynamique

AV [aaa]

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 18 Mai 2006

• #11

En faite ce fichier n'est qu'un extrait trés voire trop simplifier de mon projet et donc je ne vois pas d'autre alternative pour moi.
Cette macro me semble être le seul moyen car en effet en plus des formules j'ai aussi des données entrées à la main que je doit sauvegarder lorsque je vais faire le trie automatique.

Je te remercie de tes conseilles je vais voire ce que je peux en faire.

merci

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 18 Mai 2006

• #12

Re bonjour le forum,


je cherche à faire dire à une macro:

extraire d'une colonne des données qui contienne un texte (variable car dépend d'une liste box)mais different d'un autre (la c'est un texte complet fixe 'abs') tout ca sans doublon par rapport à une autre colonne dans une autre fichier.

Enfin il faudrai qu'il colle tout ca enfin de deuxieme colonne.

je ne sais pas si j'ai été clair donc n'hésité pas à me questionné.

Merci d'avance.

PS: mon probleme majeur reside dans l'extraction conditionnel.

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 18 Mai 2006

• #13

mon code avance mais il est loin encore de fonctionner:

Sub macro1()


Dim Derligne1%, Derligne2%
Dim i1%, i2%
Dim Exist
Derligne1 = Sheets('Feuil1').Range('b65536').End(xlUp).Row
Derligne2 = Sheets('Feuil2').Range('b65536').End(xlUp).Row
For i2 = 1 To Derligne2
For i1 = 1 To Derligne1
If Sheets('Feuil2').Range('b' & i2) = Sheets('Feuil1').Range('b' & i1) Then
Exist = 1
GoTo Suivant
End If
Next
If Exist = 1 Then GoTo Suivant
Sheets('Feuil1').Range('b' & Derligne1 + 1) = Sheets('Feuil2').Range('b' & i2)
Derligne1 = Sheets('Feuil1').Range('b65536').End(xlUp).Row
Suivant:
Exist = 0
Next



Sheets('Feuil1').Range('C2:E2').Select
Selection.Copy

Range('C200:E200').Select
Selection.End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


Columns('b:b').Select
Range('b300').Activate
Selection.Sort Key1:=Range('b3'), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

si vous voyer des erreurs ou si vous avez des suggestions je suis prenneur.

Merci d'avance!

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 18 Mai 2006

• #14

re bonjour le forum,

je me posait la question de savoir comment je peux lui dire que P1 et P2 sont des variables?

voici le nouveau code:

Sub macro1()

Dim Derligne1%, Derligne2%
Dim i1%, i2%
Dim Exist
Derligne1 = Sheets('Feuil1').range('b65536').End(xlUp).Row
Derligne2 = Sheets('Feuil2').range('b65536').End(xlUp).Row
For i2 = 1 To Derligne2
For i1 = 1 To Derligne1
If Sheets('Feuil2').range('b' & i2) = Sheets('Feuil1').range('b' & i1) Then
Exist = 1
GoTo Suivant
End If
Next
If Exist = 1 Then GoTo Suivant
Sheets('Feuil1').range('b' & Derligne1 + 1) = Sheets('Feuil2').range('b' & i2)
Derligne1 = Sheets('Feuil1').range('b65536').End(xlUp).Row
Suivant:
Exist = 0
Next


Sheets('Feuil1').range('C2:E2').Select
Selection.Copy


P1 = range('b').End(xlUp).Offset(1, 1)
P2 = range('C200:E200').End(xlUp).Offset(1, 0)

Sheets(Feuil1).range ('P1' & 'P2')
ActiveSheet.Paste

End Sub


y voyez vous des chose à redire (certainement car il ne fonctionne pas lol)

merci d'avance!

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 18 Mai 2006

• #15

re bonjour le forum,

c'est plein de desespoir que je m'adresse à vous.
Dite moi si ce que je demande est infaisable mais la moi je coince et pourtant j'ai le sentiment que je suis pas loin.

merci 'd'avance

 

Vote positif 0 Vote négatif