Discussion :

[CORDIA5]

Bonjour

Je sollicite votre aide pour aboutir mon projet VBA.
Je suis sous seven, office 2010..

Tous les mois, je dois collationner 5 à 8 fichiers Excel ayant la même structure, même type de données et même nombre d'onglets (2).

J'ai avec une macro bien avancé, mais j'ai un souci dans la sélection des cellules à copier. Effectivement, je souhaiterai, dans l'idéal, sélectioner plusieurs plages : du style (F7:G119),(I7:J119).
Sinon, si cela semble compliqué, alors dans ma sélection globale : (F7:AF119) lui demander de na pas copier/coller les cellules contenant des formules.

Les données à importer ne sont que des chiffres, je ne souhaite pas importer les titres en haut de colonne ni de la colonne de gauche, c'est pourquoi ma sélection ne commence qu'en "F7".

Evidemment, je ferai une macro pour chaque classeur, car chaque classeur à son onglet de destination dans le fichier "recup".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub RecupCopyFrmRecordset()
 ' Microsoft ActiveX DataObject doit être coché
  Sheets("Feuil3").Select
  Set cnn = New ADODB.Connection
  répertoire = ThisWorkbook.Path
  fichier = "Base de données.xlsx"
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & répertoire & "\" & fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
  Set rs = cnn.Execute("[A2:O28]")
  [D5].CopyFromRecordset rs
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Sub

D'avance merci, désolé de la longueur du texte, mais j'essaie d'être précis pour que vous puissiez comprendre mon problême.

Merci

Cordialement.

[pasdechances]

bonjour,

au lieu de copier enregistre les infos des cellule dans une variable tableau
tu gagnera en efficacité.

apres pour ta selection si tu as un critiere particulier, une boucle sur les lignes de ta colonne avec un petit "if" feront l'affaire pour ton tri.

sa donne un truc comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
dim tab(0 to 100) as variant
 
while cells(i,1)<> empty then
    if cells(i,1) = tacondition then 
         tab(j) = cells(i,1)
         j = j+1
    end if
    i = i+1
wend

tu peux remplacer la cellule par l'objet range ou autre mais l'idée est la.
apres si tu n'as pas de condition de selection bah... sa devient plus dur comment faire un tri quand tu n'as aucun éléments à trier. cela dit en suivant la piste de la boucle avec la condition tu devrais arriver à quelques chose.

[CORDIA5]

Bonsoir

Merci de votre réponse, mais j'ai bien peur d'être dépassé par votre réponse.

Je souhaite juste savoir si il est possible dans ma sélection, d'exclure les cellule contenant des formules.

Peut-être cela n'est il pas possible ?

Merci.

[pasdechances]

les cellules n'ont-elles pas un nom ou autre ?
un intituler, une caracteristique redondante ect...

[CORDIA5]

Bonsoir

Pour répondre à votre question, non les cellules qui contiennent des chiffres non pas de caractéristiques particulières tout comme celles qui contiennent de formules.

En fait, les colonnes F,G contiennent des chiffres et H contient une soustraction de F et G, I contient une soustraction de G et I et puis le cycle recommence en L.

Par contre, si besoin , je peux nommer toutes les plages des colonnes qui contiennent des formules, ou à l'inverse celles qui contiennent que des chiffres.

Merci

[pasdechances]

bien tu peux utiliser des nom de plage et pointer dessus sa irais plus vite avec l'enregistreur de macro tu aura l'adresse de la plage et tu pourra t'en servire

PS : je sais qu'on ne se connai pas, mais j'ai tendance a tutoyer facilement sur les forum par convivialité, tu n'as aucun besoin de me vouvoyer hein ^^'.

[CORDIA5]

Bonsoir

Merci de ta réponse.

Mais en repensant à ma macro, je me demande si le plus simple ne serait pas de copier les données, ce que ma macro fait déjà, mais aussi les formules (plutôt que les résultats).

Si cela est plus simple alors je suis preneur d'une solution.

Merci