Copier une cellule si 2 conditions remplies

Bonjour

Je bloque sur mon fichier Excel, et je n'arrive pas à trouver une solution avec les formules classiques.

J'ai un tableau avec 5 colonnes (A2:E50).

Je voudrais donc réaliser une macro qui vérifie pour chaque ligne si les valeurs des colonnes C et D correspondent à des conditions données (texte). Si ces 2 conditions sont remplies simultanément, alors il faut copier la valeur de la cellule A de la ligne correspondante en P4, puis répéter l'opération jusqu'à la ligne 50 (et copier en P5, puis P6...etc).

Merci pour votre aide

Bonsoir le forum,

P4 : =SI(ET(C4="Texte1";D4="Texte2");A4;"")

A tirer vers le bas.

mbbp

sub essai()
lignemax = Cells(Rows.Count,"P").End(xlUp).Row+1'trouve 1ere ligne vide
for i=2 to 50 'de la ligne2 a 50
 if cells(i,"C")=range("A1") then 'range ("A1") a remplacer par conditions données (texte)
  if cells(i,"D")=range("A2") then 'range ("A2") a remplacer par conditions données (texte)2
   cells((i,"A")=Range("P"&lignemax)
lignemax=lignemax+1
  end if
 end if
next i

end sub

a essayer...

142essai.xlsm (15.79 Ko)

Merci pour votre aide mais je n'arrive pas à faire fonctionner.

Je vous ai joins le fichier si cela peut être plus simple pour vous.

Objectif:

De P4 à P7: Afficher la cellule A de la ligne si C<= 2014 et si D = a

De P8 à P15: Afficher la cellule A de la ligne si C<= 2014 et si D = b

De P14 à P19: Afficher la cellule A de la ligne si C<= 2014 et si D = c

De P20 à P23: Afficher la cellule A de la ligne si C<= 2014 et si D = d

De P24 à P31: Afficher la cellule A de la ligne si C<= 2014 et si D = e

De P32 à P35: Afficher la cellule A de la ligne si C<= 2014 et si D = f

De P36 à P39: Afficher la cellule A de la ligne si C<= 2014 et si D = g

De P40 à P47: Afficher la cellule A de la ligne si C<= 2014 et si D = h

Puis Idem pour les cases Q4 à Q47 mais avec comme critère C<= 2015

Puis Idem pour les cases R4 à R47 mais avec comme critère C<= 2016

.....etc

Rechercher des sujets similaires à "copier conditions remplies"