macro copier - VB/VBA/VBS - Programmation
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 ?
Marsh Posté le 03-04-2005 à 09:02:41
galopin01 a écrit : Bonjour, |
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
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+
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