Discussion :

[darkspoilt]

bonjour,

Je pense que c'est débile
mais ma ligne de code ne passe pas

Code :

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

feuille.Range("C" & x & ":C" & y & ",F" & x & ":F" & y & ",Q" & x & ":Q" & y & ",J" & x & ":J" & y & ",I" & x & ":I" & y & ",H" & x & ":H" & y & ",O" & x & ":O" & y & ",M" & x & ":M" & y).copy

alors que

Code :

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

Range("C" & x & ":C" & y & ",F" & x & ":F" & y & ",Q" & x & ":Q" & y & ",J" & x & ":J" & y & ",I" & x & ":I" & y & ",H" & x & ":H" & y & ",O" & x & ":O" & y & ",M" & x & ":M" & y).copy

fonctionne avec un code contenant des actives

si quelqu'un peut m'expliquer merci d'avance

[ouskel'n'or]

Pour faire ça, utilise Application.Union. Je donne un exemple ici
A+

[darkspoilt]

ca me fait la meme erreur que auparavant

[ouskel'n'or]

Montre ton code.

[darkspoilt]

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
 
Dim wbfile As Workbook
 Dim wbfile2 As Workbook
 Dim feuille As Worksheet
 
NomFichierAlertes = Application.GetOpenFilename("Fichier xls, *.xls", , "ouvrir le fichier d'alertes (macro v35)")
 
 
If NomFichierAlertes = False Then
   Exit Sub
 
Else
 
 
'Ouverture du fichier .csv
Set wbfile = Application.Workbooks.Open(NomFichierAlertes)
Set feuille = wbfile.Sheets("feuil2")
 
 feuille.Activate
 adres = Application.Union(Range("C" & x), Range("C" & y), _
                Range("F" & x), Range("F" & y), Range("Q" & x), Range("Q" & y), _
                Range("J" & x), Range("J" & y), Range("I" & x), Range("I" & y)).Address
                Debug.Print adres
feuille.Range(adres).Select

ca plante a la derniere ligne

[scully2501]

jette un oeil ici

http://www.developpez.net/forums/sho...ighlight=range