Comment copier une partie d'une colonne avec condition?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment copier une partie d'une colonne avec condition?

BGS42

Bonjour,

Je souhaite copier une partie de 2 colonnes Excel en fonction de deux paramètres portant sur une des deux colonnes.
En fait j'ai deux seuils (variables) et je veux copier deux colonnes entre ses deux seuils.
exemple: seuil 2 et 7
et j'ai le tableau suivant
1 A
2 F
3 G
4 U
5 K
6 S
7 P
8 V
....

Merci pour vos réponses

Publicité

olivthill

En VBA, on peut écrire une macro qui ressemblerait à :

Code :

' Recherche le début
seuil_debut = 2
col_no = 1 ' pour la colonne B (A = 1, B = 2)
lg_no = 1 ' à partir de la première ligne
Do While Not IsEmpty(Cells(lg_no, col_no))
If (src_feuille.Cells(src_lg_no, src_col_no).Value = seuil_debut) Then
Exit For
End If
lg_no = lg_no + 1
Loop
If (IsEmpty(Cells(lg_no, col_no)) Then
Return ' Seuil non trouvé, on sort
End If
lg_debut_copie = lg_no;
' Recherche la fin
seuil_fin = 7
lg_no = lg_debut_copie
Do While Not IsEmpty(Cells(lg_no, col_no))
If (src_feuille.Cells(src_lg_no, src_col_no).Value = seuil_fin) Then
Exit For
End If
lg_no = lg_no + 1
Loop
If (IsEmpty(Cells(lg_no, col_no)) Then
Return ' Seuil non trouvé, on sort
End If
lg_fin_copie = lg_no;
' Copie
src_col_no = 1 ' pour la colonne B (A = 1, B = 2)
src_lg_no = lg_debut_copie ' à partir de la première ligne
dst_col_no = 3
dst_lg_no = 1
Do While (src_lg_no <= lg_fin_copie)
Cells(dst_lg_no, dst_col_no).Value = Cells(src_lg_no, src_col_no).Value
Cells(dst_lg_no, dst_col_no + 1).Value = Cells(src_lg_no, src_col_no + 1).Value
dst_lg_no = dst_lg_no + 1
src_lg_no = src_lg_no + 1
Loop

Message édité par olivthill le 24-05-2011 à 11:10:48

BGS42

Merci,
par contre mon seuil est variable, il est stocké dans F9, comment je dois le coder?

olivthill

Si le seuil inférieur est stocké dans F9 (qui contiendrai donc 2, dans notre exemple), alors il suffit de remplacer, dans mon code, la ligne

seuil_debut = 2

par

seuil_debut = Cells(9,6).value ' 9 car 9e ligne, et 6 car F est la 6e colonne

BGS42

Merci beaucoup, et j'ai une dernière question (très bête je pense)
Comment fait on appelle à la macro dans la feuille excel?
Merci beaucoup

kiki29

Salut, tu la nommes ,ce qui ici n'a pas été le cas,
dans un module tu tapes par exemple Sub Recherche
et tu places le code d'Olivthill entre le Sub Recherche et le End Sub
Sur la feuille Excel tu peux placer un Bouton et l'associer à Sub Recherche()
ou via le menu Outils/Macro/Macros

Pour infos : http://silkyroad.developpez.com/VBA/DebuterMacros/ http://excel.developpez.com/faq/?f [...] OOOOOOOOOO

Message édité par kiki29 le 24-05-2011 à 11:02:56

BGS42

ok merci pour tout

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Comment copier une partie d'une colonne avec condition?

Sujets relatifs
[MySQL] Copier une table distante	fonction d'interpolation pour plus d'une colonne
Effectuer une somme avec condition sous excel	copier un fichier
[J2EE] Restreinte d'une partie ou de la page entière abc.jsp	Excel : boucle copie de plages sous condition
Pb: copier un graph Excel sur Word	construire une plage de cellules qui répondent à la même condition
condition et copie	Ouverture d'un fichier selon une partie de son nom
Plus de sujets relatifs à : Comment copier une partie d'une colonne avec condition?

Page générée en 0.057 secondes