Macro : analyse/copier

Bonjour,
Je réalise actuellement un classeur Excel pour faire une analyse de risque.

Ma 1er feuille de calcul se présente en colonne (de B à n.), après analyse suivant plusieurs paramètres (grâce à des formules) j'obtiens un résultat dans les cellules (B22 à n22).

Je souhaiterais pourvoir faire une copie des colonnes entières si le résultats de l'analyse est "Niveau 2" ou "Niveau 3". Copie dans une nouvelle feuille de calcul en colonne B à n.

Merci pour votre aide

Ptitbubu

Salut

Code:

---

1 2 3 4 5

If niveau2 or niveau3 then Range("n1").Entirecolumn.copy Range("n1").Entirecolumn.pastespecial end if

---

Voilà l'esprit, Tableau en fichier joint et explications compréhensibles si tu veux le code exact

Merci pour ta réponse.
Mais plus de détails seraient le bienvenu.

Envoi ton fichier et une explication plus claire et tu auras ta réponse.

Je vais essayer d'être plus précis.

Dans mon fichier actuel.
1er feuille "EVRC-Semi quantitatif" j'ai effectué une analyse rapide qui me donne un résultat "niveau 0" à "Niveau 3" (cellules B22 à n22).
Je souhaiterais que toutes les colonnes ou il y a comme résultat "Niveau 2" ou " Niveau 3" soit copier (automatiquement ou en cliquant sur un bouton) toute la colonne.

Tu expliques très mal mon ami. Copier Quoi(De où à où) Ou (De où à où) Si quoi (Quelle conditions) ?

Voilà le code à adapter a ce que tu veux d'après ce que j'ai compris

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub copie dim i as integer dim j as integer While Sheets("EVRC-Semi quantitatif").cells(22,i)<>Empty i=i+1 wend For j = 2 to i if Sheets("EVRC-Semi quantitatif").cells(22,j) = "Niveau 2" or Sheets("EVRC-Semi quantitatif").cells(22,j) = "Niveau 3" then   Sheets("Lenomdetonclasseur").range("Lerangequetuveux")= Sheets("EVRC-Semi quantitatif").range(.cells(4,j),.cells(22,j))   end if

---

next j
end sub