Resume si @ present

Bonjour,

Par rapport a un code Aléatoire je met un @ si condition remplie

Maintenant je voudrai résumer dans onglet "comp" c'est à dire de collecter colonne v que si @ présent(par une Macro)

Merci de votre aide

Cordialement

13recap.xlsm (83.64 Ko)

Bonjour à toutes et tous.

Par avance MERCI pour vos propositions car c'est la dernière étapes de mon projet qui me donne un peu de fil à retordre.

Dans l'attente de vos lumières

Bien cordialement et encore Merci

Bonsoir,

Quelqu'un aurait une idée Svp

Par avance Merci

Cordialement

Bonjour toutes et tous

@Barachoie

j'ai un peu avancé, j'ai créé un nouvel onglet Feuil1 (Sheets3) dans ton vba afin de transférer sure cet onglet,

le truc, fonctionne ci-dessous, mais pas trouvé pour transférer sur l'onglet 'comp' de ton classeur

Fonctionnement : lorsqu'on clic sur le bouton @ de la feuille Feuil2, un message box (inputbox) s'affiche le signe @ 'arobase' est directement affiché par défaut, il ne reste plus qu'à cliquer sur ok de cet inputbox, et sélectionnera la colonne V recherchera les signes @ les lignes seront transférés si @ trouvés seront placés dans l'onglet Feuil1 (Sheets(3) de ton Vba).

ci-joint

crdlt,

André

Option Explicit
'https://forum.excel-pratique.com/viewtopic.php?f=2&t=108344

 Sub recherarobase()
 ' déclaration des variables
Dim mot As Variant
Dim c As Object
Dim premier
On Error GoTo 0
With Sheets("feuil2").Activate
mot = InputBox("Texte ?", "Titre", "@")
If mot = "" Then Exit Sub

Columns(22).Select
Set c = Selection.Find(What:=mot, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
premier = c.Address
Do
Rows(c.Row).Copy Sheets(3).[a65000].End(xlUp).Offset(1, 0)                        ' ici à modifier
Set c = Selection.FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
End Sub
26recap-testa.xlsm (95.30 Ko)

Bonjour toutes et tous,

bon encore du bidouillage mais fonctionnel

la feuil3 ne pas supprimer car c'est elle qui sera copiée dans l'onglet comp

2 macros dont 2 modules à ne pas supprimer ou à améliorer bien entendu

note : la fonction module 2 numéro de colonne étant juste pour savoir le numéro de colonne de l'onglet comp colonne BA

Function NumeroDeColonne

crdlt,

André

12recap-testc.xlsm (99.41 Ko)

Bonjour,

Merci c de la bidouille mais ça marche et c'est là le principal.

Merci pour ta proposition.

Bien cordialement

Rechercher des sujets similaires à "resume present"