Modification de ma macro

[Pilcar]

Bonsoir,
y a t-il quelqu'un qui pourrait me donner la solution pour que dans le fichier joint, lorsque je clique sur macro dans feuil3,la première ligne de mon résultat soit sur feuil1 B5 et non pas sur feuil1 B2.
MERCI pour toutes vos idées [file name=Classeur1_20060130190942.zip size=7447]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060130190942.zip[/file]

 

[Creepy]

Bonsoir,

Ci joint ton code corrigé et plus court !

Deux remarques :
1 - On déclare toujours en premier les variables, c'est plus propre que de les déclarer dans le code.

2 - Si tu mets un screenupdating à False, il faut pas oublier de le remettre à True, sinon tu ne verras pas les modifications que tu fais dans les feuilles par la suite.

En plus vu que ton code est tout petit, tu n'as pas besoin de figer l'affichage.

@+

Creepy [file name=Classeur1_20060130193152.zip size=8351]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060130193152.zip[/file]

 

[porcinet82]

Salut Pilcar, Salut Creepy,

Une autre proposition en concervant la base de ton code:

Sub TTT()
Dim c As Range
Dim i As Byte

i = 5
Feuil3.Select
For Each c In Feuil3.Range('A1:A10')
If c DIF '' Then
    Do While Sheets('feuil1').Cells(i, 2).Value DIF ''
        i = i + 1
    Loop
    Sheets('feuil1').Cells(i, 2).Value = c
End If
Next c
End Sub

@+

PS: Le forum n'accepte pas le code de différence (inférieur et supérieur) donc je les est remplacés par DIF

Message édité par: porcinet82, à: 30/01/2006 19:42

 

[Robert]

Bonsoir Pilcar, Creepy, bonsoir le forum,

Une autre approche avec cette macro :

Sub TTT()
Dim c As Range
Dim dest As Range

Set dest = Feuil1.Range('B5')
'Copie les données feuil3 dans feuil1
Feuil3.Range('A1:A10').Copy Destination:=dest
End Sub

Hé Creepy, t'as eu une super promo sur les dossiers ?

Édition

Bonsoir Porcinet, on s'est croisés.

Message édité par: Robert, à: 30/01/2006 19:45

 

[Pilcar]

MERCI beaucoup à tous pour votre aide, c'est parfait, j'apprends beaucoup par vos réponses.
Très bonne soirée