Remplacement de cellule

Bonjour à tous.

J'ai un fichier XLSX dans lequel il y a une colonne D

Il a des valeurs dans cette colonne D

Je veux que la valeur de la colonne D se retrouve dans la colonne AI, mais si certaines valeurs sont présentes, je veux qu'elles soient remplacés par d'autre.

Voici le code que j'ai fait et qui ne fonctionne pas malheureusement.

Sub MAJ_chemical()
'Macro pour la MAJ des équivalents'

    For i = 1 To 10000000 'Définition du range de cellule'

        With Sheets("Sheet1") 'Définition de la feuille active'
             If .Range("D" & i).Value = "* Sommation des HAP" Then 'Valeur à remplacer'
             Range("ai" & i).Value = "Sommation des HAP" 'Valeur de remplacement'

       Next i

End Sub

Merci de votre support.

Bonsoir

Personne ne t'a répondu, tu as une explication?

Si tu remplaces une chaine par la même c'est évident que tu ne vois aucun changement

Il faut apprendre à se relire

Bonsoir Scrapper.

Le premier range est en D

Il me semble que j'envoie la valeur en AI ( qui est une colonne vide)

La valeur est * sommation des HAP

La valeur de remplacement est sommation des HAP sans l'astérisque.

Probablement que mon code n'est pas clair ou erroné

Salutations

Pardon La baie, j'ai lu trop rapidement

Le range("ai" n'est pas précédé du point pour profiter du With.

Il manque aussi le 'End if' et le 'End With'

Je n'ai pas de forces ce soir pour tester, je te présente mes excuses.

J'ai 4 à 5 heures de transport par jour et ce soir j'ai des excuses liées à mon état

Je ne vois pas de sommation dans le code!

Et si tu fournissais un fichier et le résultat attendu sur une sommation (somme)

Bonjour La_baie_1976, scraper, le forum,

Pas sûr d'avoir compris non plus....

Sub MAJ_chemical()
'Macro pour la MAJ des équivalents'
 Dim dl%, i% '..........................................déclaration des variables

  Application.ScreenUpdating = False '..................désactive le rafraichissement de l'écran

       With Sheets("Sheet1") '..........................Définition de la feuille active'
        dl = .Range("D" & Rows.Count).End(xlUp).Row '...dernière ligne en fonction de la colonne D
         For i = 1 To dl '..............................boucle de la ligne 1 à la dernière
          If .Range("D" & i).Value = "* Sommation des HAP" Then .Range("AI" & i).Value = Replace(.Range("D" & i), "*", "")
         Next i
      End With
End Sub

Cordialement,

Merci Xorsankukai. Ca fonctionne super bien et désolé si ce n'était pas clair :)

Bonne journée