extraction d\'enregistrements (RESOLU)

[matou59]

extraction d'enregistrements (RESOLU)

bonjour,

Excel 2000 :
Dans un classeur, il y a 12 feuilles de calcul représentant un mois de l’année.
Dans chaque feuille il y a 100 enregistrements maxi et chaque enregistrement contient 10 cellules (donc 10 colonnes).
On a donc un tableau A1 :J100 .

Je voudrais faire un récapitulatif dans une autre feuille comportant les données des 12 feuilles mais a la condition que le contenu des cellules de la colonne C soit differente de 0.

Je vais donc me trouver avec une 13e feuille avec tous les enregistrements des 12 autres et toutes les cellules de la colonne C seront differentes de 0. En quelque sorte un tableau A1 :Jxxx

Message édité par: matou59, à: 16/12/2005 09:16

 

[Blister58]

Re:extraction d'enregistrements

Bonsoir
Oui ,mais encore:Ou est ton problême?????

Cordialemment

 

[Blunet]

Re:extraction d'enregistrements (RESOLU)

[quote]Je précise que je n'ai pas bien compris ce que tu veux exactement faire
Tu peux mieux expliquer et/ou envoyer une pièce jointe [/quote]

Sub Copie()
Dim i, j As Integer 'Compteurs
[quote]Vois dans quelles mesures tu peux parmétrer les reférences.
Par exemple 'sheets.Count' au lieu de 12, 'Cste=100'
Range('A' &(j+5)) permet de ne pas écraser les enregistrements précédents.[/quote]

Dim RechercheValeur

    For j = 1 To 12
        'Vérifie si valeur 0 dans toute la plage
        For i = 1 To 100
            If Worksheets(j).Range('C' & i).Value = 0 Then
                RechercheValeur = True
                
            Else: RechercheValeur = False
            End If
        Next i
        
        [quote]Sinon alors copie [/quote]
        If RechercheValeur = False Then
            Worksheets(j).Range('A1:J100').Copy _
                Destination:=Worksheets('Feuil13').Range('A' & (j + 100))
        
        Else: Exit Sub
        End If
    Next j

End Sub

 

[Blunet]

Re:extraction d'enregistrements (RESOLU)

Le fichier joint

 

[Blunet]

Re:extraction d'enregistrements (RESOLU)

Fichier joint:

 

[Blunet]

Re:extraction d'enregistrements (RESOLU)

OUF enfin j'ai réussi à attaché le fichier !!!
(Tutoriel) Du moins j'espère.

 

[matou59]

Re:extraction d'enregistrements (RESOLU)

Bonjour et merci blunet mais j'avais resolu mon probleme (note dans le titre) en bricolant en VB.J'ai pu resoudre ainsi mon probleme qui ressemble etrangement a ta solution.
merci quand meme...
cordialement