Contenu récent par JBL8

Bonsoir à tous, Je vois que le coût de la consommation électrique d'angoisse ! J'ai une solution radicale pour toi ! T’achète une galerie de toit et des panneaux photovoltaïque pour ta petite zoé et le tour est joué ! Plus besoin de s'emm...der avec excel pour rentrer ces heures à chaque charge...

Bonjour à tous, Pas content ce Mr jmfmarques ! Hélas, pour lui la solution a été trouvée par d'autres ;) Bonne journée à tous !

Faut que tu craches !

Bonjour à tous, Belle démonstration de pierrejean ! Merci à lui et ainsi qu'à l'humour de Victor21 ! Bonne journée !

Bonjour à tous, Certes ce n'est pas une demande pour résoudre un probléme mais réfléchissons sur ce probléme ! À sa mort, un fermier laissa en héritage dix-sept (17) chevaux à ses trois fils. Dans son testament, le père avait ainsi établi le partage de l’héritage : Mon fils ainé recevra la...

Re, Je comprends le type de programmation que tu m'indique ! J'ai pu le voir dans des posts sur ce forum ! Hélas, mon étude du VBA, n'a été faite qu'en utilisant Les méthodes Range et Cells ! Je n'ai jamais pu avoir une documentation sur ce type de programmation VBA ! Par conséquence...

Re, Attention dans ma macro il y a : If .Cells(i, 10) = Sheets("Feuil1").Cells(j, 1) Then Ce qui veux dire que lorsque le nom de la feuille 2 colonne J (grâce à ta formule : "=TRIM(RC1)") a été identifié dans la feuille 2 colonne A alors l'on peut même les chiffres dans les 8 colonnes (B à I)! @+

Re, Ta pas compris ! Oui mais sur seulement une colonne (B) et tu n'as pas répondu à mon post 14 Voir fichier ! @+

Re, Désolé de ne pas avoir été plus précis dans ma demande du post 14 ! De plus je ne savais pas modifier ta macro ! Il fallait utiliser ta macro sur plusieurs lignes et comme je l'ai dit sur 8 colonnes ( à partir de la colonne B) Merci !

Bonjour, bonjour Dranreb, Grace à toi j'ai compris comment faire ma macro pour plusieurs lignes ! Sub TEST() Dim i As Long, j As Long, k As Long, A As Long A = 1 With Sheets("Feuil2") For i = 1 To 3 Step 2 .Cells(i, 10).FormulaR1C1 = "=TRIM(RC1)" For j = 1 To 2 j = A If .Cells(i, 10) =...

Re, Désolé, mais s'il y a 8 colonnes (B à I) à copier comment modifier ta macro que je ne comprend pas ! Merci !

Bonjour à tous, Dranreb, Chapeau ta macro ! OK, elle fonctionne maintenant et le probléme et réglé! Merci à l'avance et bonne journée !

Re, Pas compris ce que tu veux dire ! merci !

Re, j'ai cette erreur ici : Rng1.FormulaR1C1 = "=INDEX(Feuil2!R1C2:R" & Rng2.Rows.Count & "C2,MATCH(RC1," _ & Rng2.Address(True, True, xlR1C1, True) & ",0))"

Re, J'ai fait ce que tu a dis mais quand je lance ma macro, Le texte n'est pas reconnu et donc rien ne se passe! A signaler que le texte de la feuille 2 provient d'un copier coller d'un site internet ! @+