Discussion :

[sergio_gr66]

Bonjour à tous et à toutes.

J'ai besoin de votre aide, j'ai a probleme pour chercher differentes cellules et copier ses donnees,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
            Windows("CATALOGUE.xls").ActivatePrevious
            Dim Cel10 As Range
            Set Cel10 = Range("1:1").Find("Version")
            If Not Cel10 Is Nothing Then Cells(Cel10.Row + 1, Cel10.Column).Select
                Range(Selection, Selection.End(xlDown)).Select
                Selection.Copy
                Windows("CATALOGUE.xls").Activate
                Sheets("CP ou EM").Select
                Range("j" & Range("j" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=True, Transpose:=False
 
            Windows("CATALOGUE.xls").ActivatePrevious
            Dim Cel11 As Range
            Set Cel11 = Range("1:1").Find("Surface")
            If Not Cel11 Is Nothing Then Cells(Cel11.Row + 1, Cel11.Column).Select
                Range(Selection, Selection.End(xlDown)).Select
                Selection.Copy
                Windows("CATALOGUE.xls").Activate
                Sheets("CP ou EM").Select
                Range("k" & Range("k" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=True, Transpose:=False

Voici un exemple, quand la macro ne trouve pas la cellule "Surface" el fait un copier coller du derniere ceullule trouvé, dans ce cas c'est la cellule "Version".
Comment peux-je corriger cette probleme?

Merci beaucoup

[Benoit Schwob]

Hello Sergio

Une histoire de syntaxe...

A la base les conditions se gèrent comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If toto = "léo" Then
    tonton = "léon"       ' instructions
ElseIf tata = "irma"
    tonton = "gaston"     ' instructions
Else
    tonton = "personne"   ' instructions
End If

Dans le cas particulier où tu n'as qu'une seule condition à vérifier puis une seule instruction (une ligne) à passer, tu peux réduire la chose à cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If toto = "léo" Then tonton = "léon"

Pour le dire à l'envers : si tu passes une instruction juste après le "Then", sur la même ligne, bah ce qui suivra ne sera plus traité dans le bloc "If" !...

Le couac est donc dans ta ligne qui dit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Cel11 Is Nothing Then Cells(Cel11.Row + 1, Cel11.Column).Select

(la 7e en partant du bas dans ton bloc de code)
=> Elle n'inclut PAS ce qui suit !

Tu devrais plutôt passer un truc comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If Not Cel11 Is Nothing Then
                Cells(Cel11.Row + 1, Cel11.Column).Select
                Range(Selection, Selection.End(xlDown)).Select
                Selection.Copy
                Windows("CATALOGUE.xls").Activate
                Sheets("CP ou EM").Select
                Range("k" & Range("k" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=True, Transpose:=False
 End if

Au passage, essaie d'alléger ton code en travaillant sans les "Select" et les "Activate".
C'est un peu troublant à faire au début mais ton code tournera plus vite et tu y gagneras beaucoup en lisibilité...

Bien cordialement,

Benoît

[Pierre Fauconnier]

Bonjour

Je complète Benoît en précisant que l'utilisation des SELECT (pour le classeur, les feuilles puis les cellules) n'est pas indiqué. Je sais que l'enregistreur de macros donne ce genre de code, mais ce n'est pas du tout une bonne façon de procéder.

Il faut déclarer des objets As Workbook, as Worksheet et As Range et travailler avec ces objets.

[sergio_gr66]

Desolee, mais la macro continue à me copier les dernieres donnees, je prefer d'avoir les cellules vides quand elle ne trouve pas "SURFACE".

Merci beaucoup