Discussion :

[gaauthier]

Bonjour,
Je reprends les données téléphonique d'un opérateur.
Mon but :
- extraire des infos pour une trentaine de numéro différents dans classeur1
- copier les cellules concernés dans un classeur "arrive"


Le classeur1 se compose de 2 feuilles :
- Montants facturés par carte
- Durées par carte

Voilà mon exemple de code pour rechercher 1 seul numéro :

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
22
23
24
25
Sub Macro5()
'
' Macro5 Macro
'

'
    Workbooks.Open "C:\arrive.xlsx"
    
    Windows("Classeur1.xls").Activate
        Sheets("Montants facturés par carte").Select
        
        For Each cel In Sheets("Montants facturés par carte").Range("C3:C" & Sheets("Montants facturés par carte").Range("C800").End(xlUp).Row)
            If UCase(cel) = 0607080910 Then
                ActiveCell.Offset(0, 11).Select
                Selection.Copy
             
    Windows("arrive.xlsx").Activate
        Sheets("feuil1").Select
            Range("A1").Select
            ActiveSheet.Paste
            
            End If
        Next
    End Sub

Le problème, c'est que je veux copier la 11ème cellule (à droite) du numéro recherché (0607080910)

help ....

[Yoyo57]

Bonjour gaauthier,

Je reprends ta macro en évitant les Select :

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
' Macro5 Macro
'
 
'
    Workbooks.Open "C:\arrive.xlsx"
 
    Windows("Classeur1.xls").Activate
        Sheets("Montants facturés par carte").Select
 
        For Each cel In Sheets("Montants facturés par carte").Range("C3:C" & Sheets("Montants facturés par carte").Range("C800").End(xlUp).Row)
            If UCase(cel) = 0607080910 Then
                Range(cel.adress).Offset(0, 11).Copy
                Windows("arrive.xlsx").Activate
                Sheets("feuil1").Range("A1").Paste
            End If
        Next
End Sub

Est-ce que cela correspond à ce que tu attends ?

[gaauthier]

quand je test ton code, cela me renvoie une erreur :

erreur d'execution '438'
propriété ou méthode non gérées par cet objet

référence de ligne :

Code :

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

Range(cel.adress).Offset(0, 11).Copy

Je veux que dès qu'il remarque la cellule ou il y a le numéro de téléphone 0607080910

qu'il copie la 11ème cellule (droite) dans l'autre classeur

je veux une espèce de :

Code :

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

cellulecible.offset(0,11).copy

[Yoyo57]

Désolé, faute de frappe, voici le code corrigé

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
Sub Macro5()
'
' Macro5 Macro
'
    Workbooks.Open "C:\arrive.xlsx"
 
    Windows("Classeur1.xls").Activate
        Sheets("Montants facturés par carte").Select
 
        For Each cel In Sheets("Montants facturés par carte").Range("C3:C" & Sheets("Montants facturés par carte").Range("C800").End(xlUp).Row)
            If UCase(cel) = "0607080910" Then
                Range(cel.Address).Offset(0, 11).Copy
                Windows("arrive.xlsx").Activate
                Sheets("feuil1").Paste
            End If
        Next
End Sub

[gaauthier]

ça à l'air de fonctionner,
je met ça au point pour demain et je te dis si ca marche.

en tout cas, merci beaucoup du coup de main !

[AlainTech]

Bonjour,

cel est un objet Range.
Pourquoi, dans cette ligne

Code :

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

Range(cel.Address).Offset(0, 11).Copy

en extraire l'adresse pour recréer un Range?

Il est plus correct d'écrire ainsi:

Code :

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

cel.Offset(0, 11).Copy