Prendre des données de plusieurs onglets d'un même fichier

K

kjin

XLDnaute Barbatruc

• 3 Décembre 2012

• #2

Re : Prendre des données de plusieurs onglets d'un même fichier

Bonjour,
Tu peux toujours sélectionner plusieurs feuilles....

Code:

Dim monarray(2)
For i = 0 To 2
    monarray(i) = Sheets(i + 2).Name
Next
    Sheets(monarray).Select

...mais pourquoi faire ?!
A+
kjin

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Décembre 2012

• #3

Re : Prendre des données de plusieurs onglets d'un même fichier

Bonjour.
Effectivement le titre de la discussion dit "Prendre des données…
Il est douteux qu'il soit nécessaire pour cela de sélectionner les feuilles.
L'erreur était essentiellement dans le Redim qui définissait 3 feuille en trop non initialisées.
Le plus simple c'est encore comme ça:

VB:

Dim MonArray() As String, I As Long
ReDim MonArray(2 To Worksheets.Count - 2)
For I = 2 To Worksheets.Count - 2 'Parcours des feuilles
   MonArray(I) = Worksheets(I).Name
   Next I
Sheets(MonArray).Select 'sélection de l'ensemble

À +

 

Vote positif 0 Vote négatif

T

tomalstom64

XLDnaute Nouveau

• 4 Décembre 2012

• #4

Re : Prendre des données de plusieurs onglets d'un même fichier

Merci de votre aide! mon programme fonctionne! merci encore!!!

 

Vote positif 0 Vote négatif

T

tomalstom64

XLDnaute Nouveau

• 14 Mars 2013

• #5

Re : Prendre des données de plusieurs onglets d'un même fichier

bonjour à tous,
sur une ligne de mon fichier Excel certaines valeurs sont identiques... Je voudrais donc supprimer tous les doublons de cette ligne et ne garder qu'une seule valeur... Je code en vba excel 2007. Merci d'avance!!!

 

Vote positif 0 Vote négatif

T

tomalstom64

XLDnaute Nouveau

• 16 Avril 2013

• #6

Re : Prendre des données de plusieurs onglets d'un même fichier

Bonjour à tous j'ai un autre souci vba

la ligne en gras m'indique: erreur 13: incompatibilité de type et je ne comprends pas pourquoi... j'ai tout bien déclaré pourtant...

BaseLog.Activate
BaseLog.Sheets("BaseLog").Select
compteur = 0

For j = vg_nomOutilspec1 To vg_nomOutilspec20
Cell = Cells(2, j).Value
'nbcol = Range(Cells(4, vg_nomOutilspec1), Cells(vgLigneMaxiBaseLog, vg_nomOutilspec20)).SpecialCells(xlCellTypeLastCell).Column

If Range(Cells(4, j), Cells(vgLigneMaxiBaseLog, j)) <> "" And Left(Cell, 4) = "Tool" Then

compteur = compteur + 1
End If

Next j

Merci d'avance

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Avril 2013

• #7

Re : Prendre des données de plusieurs onglets d'un même fichier

Boujour
Vous ne pouvez pas comparer la valeur d'une plage de plusieurs cellules à une expression constante parce que c'est un tableau.
Il faut procéder autrement. Parmi plusieurs possibilités il y SpecialCells, que vous utilisez déjà, qui pourrait vous renvoyer des cellules non vides s'il en existe, ou provoquer une erreur.

 

Vote positif 0 Vote négatif

T

tomalstom64

XLDnaute Nouveau

• 16 Avril 2013

• #8

Re : Prendre des données de plusieurs onglets d'un même fichier

d'accord je vous remercie

 

Vote positif 0 Vote négatif

T

tomalstom64

XLDnaute Nouveau

• 16 Avril 2013

• #9

Re : Prendre des données de plusieurs onglets d'un même fichier

mais moi je demande juste que les valeurs de la plage soient non vides en fait

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Avril 2013

• #10

Re : Prendre des données de plusieurs onglets d'un même fichier

Voir ma réponse en Edit dans l'autre discussion.

 

Vote positif 0 Vote négatif

T

tomalstom64

XLDnaute Nouveau

• 30 Avril 2013

• #11

Re : Prendre des données de plusieurs onglets d'un même fichier

Bonjour tout le monde,

je vous présente mon souci:

j'ai un fichier excel contenant 30 feuilles
je souhaite traverser la colonne 5 de chaque feuille et compter le nombre de cellules non vides

Quelqu'un aurait-il une solution svp?

Merci d'avance

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 30 Avril 2013

• #12

Re : Prendre des données de plusieurs onglets d'un même fichier

… la chose pouvant s'effectuer dans une boucle explorant plusieurs feuilles (pour compléter ma réponse dans l'autre discussion).

 

Vote positif 0 Vote négatif