Comment dire en VBA?

[flo2002]

Re bonjour le forum,

je cherche à faire une macro qui va m'extraire des données dans une feuille puis les coller dans une autre.
Pour cela j'aurai besoin de lui dire de trouver les données en collonne A à partir du premier texte rencontrer à partir de la ligne2 jusqu'au dernier texte et qu'il me selectionne puis copie ceci.

Merci d'avance!

si je n'ai pas été clair je peux retenter une explication.

 

[Eric C]

Bonsoir le forum
Bonsoir flo2002

Une tite macro à améliorer :

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 😉

 

[Bernard_XLD]

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+

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

 

[Marc_du_78]

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.

 

[Bernard_XLD]

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+

 

[Bernard_XLD]

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

 

[flo2002]

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

 

[Marc_du_78]

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

 

[flo2002]

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

 

[AV]

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]

 

[flo2002]

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

 

[flo2002]

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.

 

[flo2002]

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!

 

[flo2002]

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!

 

[flo2002]

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