Contenu récent par zizou026

Bonsoir sylvanu, Merci pour votre réponse, faut-il créer une liste? La liste pourrait être dans un classeur fermé? Et, peut-on le faire évoluer? Excellente soirée.

Bonjour, Je cherche une formule VBA pour chercher les mots de la colonne L et le remplacer dans la colonne C. Exemple : Si on trouve "Pomme" remplacer par "Fruit" dans la colonne C. Si L "Raisin" Remplacer par "Fruit" Si L "Haricot" Remplacer par "Légume" https://www.cjoint.com/c/KAwiNABMGVr Par...

Bonjour job75, Merci Beaucoup, je te souhaite une excellente journée. Cordialement, Zizou026

Bonsoir job75, Sans abuser de ta gentillesse, serait-il possible de copier le titres entre les lignes? Merci beaucoup et te souhaite une excellente soirée. Cordialement, Zizou026

Bonjour job75, Franchement, c'est super génial... sur le tableau d'exemple je n'ai pas du tout d'erreur. Par contre sur le tableau réel, il y a des loupés, (c'est très gentille à toi) je vais les corriger manuellement. Pour info : j'ai ajouté un bouton sur chaque feuille. Ce n'est pas pour te...

Bonjour job75, Je te remercie beaucoup, ça fonctionne très bien. Comme il y a plus d'une vingtaine d'onglets c'est pour cette raison que je te posais la question. Encore un immense merci et je te souhaite une excellente journée. Cordialement, Zizou026

C'est exactement ce qu'il me faut merci beaucoup :D . Question : comment faire pour les autres onglets? Dans ta formule, j'ai essayé de rentrer le nom de la feuille ça ne le prend pas en compte. À quel moment je peux inclure le nom de la feuille? Merci beaucoup job75

Bonjour job75, Il y a des données de A2 jusqu'à X (je peux avoir des données > à 500 000 lignes. Un fois l'insertion des lignes reprendre la donnée de la cellule inférieur et celle 3ème cellule à côté de la colonne A. Merci encore... Cordialement, zizou026

Merci :)

Bonjour Staple1600, j'ai réussi à faire ça : Sub Macro4() Sheets("Toto").Select Dim r As Range Application.ScreenUpdating = False Set r = Columns("A:A").SpecialCells(xlCellTypeBlanks) r.FormulaR1C1 = "=R[+1]C" Application.ScreenUpdating = False Set r =...

Bonsoir, je te remercie pour ta réponse et te souhaite une excellente année. J'ai testé la formule elle ne recopie pas la cellule d'en dessus et n'insère pas de ligne. Si possible, je souhaite que la ligne insérée soit en couleur grise, j'ai plusieurs onglets serait il possible de les...

Bonjour, Une excellente année à toutes et à tous. J'ai trouvé ce formule : Sub complèter() Sheets("toto").Select x = [B65536].End(3).Row For Each C In Range("A1:A" & x).SpecialCells(xlCellTypeBlanks) C.Value = Range(C.Address).End(3).Value Next End Sub Comment faire pour ça insère une ligne et...

Bonjour fanfan38, C'est exactement ce qu'il me fallait merci beaucoup. Je te souhaite une très bonne année, santé, prospérité encore merci. Cordialement, Zizou