Filtrer et afficher des données

[cg1980]

Bonjour,
Est-ce que qq'un peut m'aider sur un code:

J'aimerais créer une macro qui tourne dans un fichier excel vide et qui:

A
1. répere les colonnes dont le chiffre à la ligne 43 est inférieur à 100 dans tous les onglets du fichier attaché ci-joint.

Merci

 

[alexga78]

Re : Filtrer et afficher des données

Bonsoir cg1980,

une première approche à améliorer :
Sub test()
Dim i As Integer
Dim Ws As Worksheet
Dim réponse
For Each Ws In ActiveWorkbook.Worksheets
For i = 1 To 100
'''''''''''If Cells(43, i) < 100 And Cells(43, i) <> 0 Then''''''
If Ws.Cells(43, i) < 100 And Ws.Cells(43, i) <> 0 Then
réponse = réponse & "Feuille : " & Ws.Name & " " & "colonne: " & i & vbLf
End If
Next i
Next
MsgBox réponse
End Sub

bonne soirée

 

[kjin]

Re : Filtrer et afficher des données

Bonsoir,
Dans un fichier vide ?
Repérer les colonnes ?
Un début de réponse peut-être
A+
kjin

 

[cg1980]

Re : Filtrer et afficher des données

Merci pour vos réponses.

C'est vrai que j'ai peut-être pas été très clair.

En fait ce que je pensais, c'était d'avoir un fichier vide avec une macro qui va puiser l'information dans le fichier attaché dans le 1er message.

Et ainsi on synthétise l'information en ne prenant que les colonnes où la ligne 43 a un chiffre inférieur à 100.

1. la macro tourne dans un fichier vide
2. il ramène dans ce fichier vide les colonnes du fichier attaché dont la ligne 43 est inférieur à 100

Le zip correpsond à ce que je voulais. Seulement je voudrais que dans la feuil1 colonne A, il y ait la colonne E de l'onglet 2008-2012 et ensuite la colonne G etc. a savoir uniquement les colonnes <100.

PS et ca m'intéresserait de savoir si au lieu de ramener toute la colonnes, je ramène uniquement la cellule en ligne 11 correpondant à un chiffre <100 en ligne 43

Merci