macro copier

macro copier - VB/VBA/VBS - Programmation

Marsh Posté le 02-04-2005 à 21:40:22    

salut a tous  
 
voila mon probleme
debutant en macro
je voudrais savoir si on peu copier les lignes d'une feuille SUR UNE AUTRE FEUILLE dont les cellules d'une colonne sont  
 
inferieur ou egal a une autre colonne
 
colonne A        COLONNE B
    8                 5
    6                 8
    7                 5
 
 
JE VOUDRAIS COPIER LES LIGNES 1 ET 3  
SUR UNE AUTRE FEUILLE (exemple du haut)
sachant que la colonne B change souvent
donc la je voudrais peu etre copier d'autre lignes
 
je veux copier les lignes donc le cHiffre de la colonne B ET INFERIEUR ou egal A CEUX DE LA COLONNE A (SUR LA MEME LIGNE)
 
je suis un peu perdu
 
MERCI POUR VOS IDEES QUI SERONT LES BIEN VENU
 
AIGLON74

Reply

Marsh Posté le 02-04-2005 à 21:40:22   

Reply

Marsh Posté le 03-04-2005 à 06:56:40    

Bonjour,
La macro suivante copie les lignes trouvées vers "Feuil2" (à adapter)
 
Sub Test()
For i = 1 To Range("B65536" ).End(xlUp).Row
If Cells(i, 2).Value <= Cells(i, 1).Value Then
Rows(i).Copy Sheets("Feuil2" ).Cells(j + 1, 1)
j = j + 1
End If
Next
Application.CutCopyMode = False
End Sub
 
Nota :  
Il est supposé que les colonnes A et B ont la même longueur.
Une cellule vide est réputée avoir la valeur 0
Ok ?

Reply

Marsh Posté le 03-04-2005 à 09:02:41    

galopin01 a écrit :

Bonjour,
La macro suivante copie les lignes trouvées vers "Feuil2" (à adapter)
 
Sub Test()
For i = 1 To Range("B65536" ).End(xlUp).Row
If Cells(i, 2).Value <= Cells(i, 1).Value Then
Rows(i).Copy Sheets("Feuil2" ).Cells(j + 1, 1)
j = j + 1
End If
Next
Application.CutCopyMode = False
End Sub
 
Nota :  
Il est supposé que les colonnes A et B ont la même longueur.
Une cellule vide est réputée avoir la valeur 0
Ok ?


 
salut galopin01
 
merci pour ta reponse qui marche du tonnerre
tu es comme ton nom l'indidique number 1
merci encore  
si tu as un site ou un livre a me conseille
pour apprendre le vba je suis preneur
 
a bientot  
aiglon74
 
 

Reply

Marsh Posté le 03-04-2005 à 14:56:43    

Re :  
Un site intéressant : ici
Pour les livres de 9 à 100 € la référence en la matière c'est Eyrolles mais c'est difficile de conseiller tout dépend du niveau de base.
Il faut se dire que quand on en veut, très rapidement tous les livres deviennent insuffisant. C'est donc une perpétuelle escalade...
A+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed