extraction

Le
syleg35
Bonjour à tous;
je cherche comment faire pour extraire que les lignes ou se trouve un
montant, dans une autre feuille
ci-joint exemple

http://cjoint.com/?iFqetqXU7D

merci à vous
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
François
Le #16680781
> Bonjour à tous;
je cherche comment faire pour extraire que les lignes ou se trouve un
montant, dans une autre feuille
ci-joint exemple



http://cjoint.com/?iFqetqXU7D



merci à vous



Comme ça?

Bon, c'est évidemment très perfectible!!!

http://cjoint.com/?iFrdIxQ4pw

--
Amicalement

"Le néant est un couteau sans lame auquel il manque le manche"
G.C. Lichtenberg
Jacquouille
Le #16680881
Bonjour,

Sub Efface_les_lignes_vides ()

Sheets("Feuil1").Select
Sheets("Feuil1").Copy After:=Sheets(1)
Sheets("Feuil1 (2)").Select
Sheets("Feuil1 (2)").Name = "copie"

derL = [A65536].End(xlUp).Row
For z = derL To 2 Step -1
If Range("B" & z).Value = "" And Range("C" & z).Value = "" And
Range("D" & z).Value = "" And Range("E" & z).Value = "" Then
Rows(z).Delete
End If
Next
End Sub
-------------
Attention que la ligne commençant par IF range....se termine avec le mot
Then
---------------
Modifier le nom de la feuille "copie" s'il échet.
Bonne chance

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.


Bonjour à tous;
je cherche comment faire pour extraire que les lignes ou se trouve un
montant, dans une autre feuille
ci-joint exemple

http://cjoint.com/?iFqetqXU7D

merci à vous
syleg35
Le #16682181
Merci à vous deux !
les deux fonctionne bien à moi de choisir !

encore merci et bonne soirée à vous


On 31 août, 17:29, "Jacquouille" wrote:
Bonjour,

Sub Efface_les_lignes_vides ()

   Sheets("Feuil1").Select
   Sheets("Feuil1").Copy After:=Sheets(1)
   Sheets("Feuil1 (2)").Select
   Sheets("Feuil1 (2)").Name = "copie"

    derL = [A65536].End(xlUp).Row
    For z = derL To 2 Step -1
        If Range("B" & z).Value = "" And Range("C" & z).Value = "" And
Range("D" & z).Value = "" And Range("E" & z).Value = "" Then
        Rows(z).Delete
        End If
    Next
End Sub
-------------
Attention que la ligne commençant par IF range....se termine avec le mo t
Then
---------------
Modifier le nom de la feuille "copie" s'il échet.
Bonne chance

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.


Bonjour à tous;
je cherche comment faire pour extraire que les lignes ou se trouve un
montant, dans une autre feuille
ci-joint exemple

http://cjoint.com/?iFqetqXU7D

merci à vous


Publicité
Poster une réponse
Anonyme