Discussion :

[missyaudrey]

Bonjour, je commence à utiliser vba surtout à travers de petites macros.
Je ne maitrise pas vraiment le sujet et je m'en excuse par avance.

Mon problème est le suivant:

J'ai un tableau de données de A à O mais le nombre de lignes diffèrent tous les jours.

Je souhaite faire un test sur les cellules de ma colonne H.

Sélectionner la première cellule à tester H2
Si H2 est égal ou supérieur à 3
Alors copier les cellules B J C de cette même ligne
et coller dans une autre feuille
Sinon passer à la cellule suivante et faire le test
Recommencer pour toutes les cellules H jusqu’à cellule vide

Voilà.

[LeForestier]

Bonjour,
Un exemple..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Lig as long
   For lig = 2 to range("H65536").end(XlUp).Row
       If cells(Lig,8) > 2 then
           Sheets("AutreFeuille").cells(Lig,2) = cells(Lig,2)
           Sheets("AutreFeuille").cells(Lig,10) = cells(Lig,10)
           Sheets("AutreFeuille").cells(Lig,3) = cells(Lig,3)
       End if
   Next Lig

A+

[Krovax]

Bonjour,
Une toute petite modif, pour coller sur la dernière ligne de l'autre feuille (afin de ne pas avoir de blanc, je ne sais pas si c'est ce que tu veux)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim Lig as long,lig2 as long
lig2=Sheets("AutreFeuille").range("B65536").end(XlUp).Row
   For lig = 2 to range("H65536").end(XlUp).Row
       If cells(Lig,8) > 2 then
           lig2=lig2+1
           Sheets("AutreFeuille").cells(Lig2,2) = cells(Lig,2)
           Sheets("AutreFeuille").cells(Lig2,10) = cells(Lig,10)
           Sheets("AutreFeuille").cells(Lig2,3) = cells(Lig,3)
       End if
   Next Lig

[missyaudrey]

Bonjour je vous remercie tous les deux le code focntionne bien et effectivement je ne voulais pas avoir de blancs.

Merci à une prochaine peut être.