Discussion :

[Zebulon777]

Salut tout le monde,
j'espère que je poste au bon endroit...

Dans un tableau EXCEL j'aimerai arriver à recopier sur une nouvelle feuille le contenu de toutes les lignes dont la colonne A contient le mot "TOTAL", sachant que cette colonne ne contient pas QUE le mot "TOTAL".

(J'espère que je suis clair)

Merci d'avance à tous...
Zeb'

[illight]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
k = 1
for i =1 to Nbrelignes
              if cells(i,1).value = "TOTAL" then
                           Rows("i:i").Select
                           Selection.Copy
                           Sheets("Feuil2").Select
                           Rows("k:k").Select
                           ActiveSheet.Paste
                           k = k+1
              end if
          next i

Un truc dans ce genre mais il y a surement plus simple et aussi a toid e l'adapter en fonction de tes données

[Catbull]

Code :

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

if cells(i,1).value = "TOTAL" then

Cette condition ne répond pas au besoin exprimé par Zebulon777 :

contient le mot "TOTAL", sachant que cette colonne ne contient pas QUE le mot "TOTAL".

Il faut donc remplacer cette condition par :

Code :

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

1
2
 
if instr(1, UCase(cells(i,1).value), "TOTAL") > 0 then

Instr permet de répérer l'inclusion d'une chaine de caractère dans une autre.

[Zebulon777]

Merci, mais est-ce qu'il est possible de le faire sans passer par le VBA, mais uniquement en fonction EXCEL ?

[Zebulon777]

Une autre question me vient : comment récupérer le nombre de lignes total d'une feuille excel ???

[illight]

Code :

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

if cells(i,1).value = "TOTAL" then

Cette condition ne répond pas au besoin exprimé par Zebulon777 :


Il faut donc remplacer cette condition par :

Code :

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

1
2
 
if instr(1, UCase(cells(i,1).value), "TOTAL") > 0 then

Instr permet de répérer l'inclusion d'une chaine de caractère dans une autre.

J'avais compris que la colonne ne comprend pas que total, c'est a dire qu'il peut avoir écrit total dans une cellule, puis dessous autre chose etc,.. pas forcément dans la meme cellule d'ou confusion

Tu peux utiliser Rows.count pour avoir le nombre total de lignes d'une feuille Excel ou alors tu fais une boucle For :

Code :

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

1
2
3
4
for i = 1 to rows.count
              if cells(i,1).value = "" then exit for
          next i
i = i-1

i sera alors le nombres de lignes de ta feuille ou tu as les données

[ouskel'n'or]

Pour avoir ta dernière ligne, tu as plusieurs méthodes

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'Si A est la colonne est celle comportant le plus grand nombre de lignes
DernièreLigne = Range("A1").End(xlDown).Row
DernièreLigne = Range("A65535").End(xlUp).Row
 
'si tu es dans la colonne ayant le plus grand nombre de lignes
DernièreLigne = ActiveCell.End(xlDown).Row 
 
'Si tu n'as aucune ligne ni colonne entièrement vides dans ta plage de données
DernièreLigne = Selection.CurrentRegion.End(xlDown).Row

A+

[Zebulon777]

J'avance petit à petit, mais je galère.
Est-ce que rows.count va se comporter normalement s'il y a des lignes blanche dans la feuille ?

De plus, je change mon fusiil d'épaule : une fois que j'ai trouvé une ligne "TOTAL", il faut que je la recopie à la fin du tableau + une ligne blanche puis que je sélectionne toutes les nouvelles lignes "TOTAL" (autant que le nombre de jour du mois en cours de traitement) copiées afin d'en faire ensuite un fichier CSV...

A vous...