Discussion :

[Orel33]

Bonjour,
Je suis désolé, je suis novice en programmation vba.
Voici mon problème:

Connu:
-Valeur cellule "E13"
-Valeur cellule "C10"
-Plage de donnée D4 : D8

Action que je souhaite faire par macro:
-Cliquer sur un bouton "macro"
-Cela copie les valeurs de la plage D4 : D8 vers la plage F4:F8
-Cela recherche la valeur de la cellule E13 dans la plage F4:F8
-Cela remplace cette valeur recherchée par la valeur de la cellule C10

Pourriez-vous m'aider à rédiger ce programme.

En vous remerciant.

[casefayere]

Bonjour,
essayes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Cel As Range
Range("F4:F8").Value = Range("D4:D8").Value
Set Cel = Range("F4:F8").Find(Range("E13"))
If Not Cel Is Nothing Then Cel = Range("C10")

[Orel33]

Hello Casefayère,

je te remercie, cela fonctionne à la perfection.
J'ai essayé de traduire ton code pour traduire le déroulement de la macro:



Merci beaucoup

[Menhir]

Dim Cel As Range ' Que signifie cette ligne ?

Déclaration de variable
https://msdn.microsoft.com/fr-fr/lib.../gg251750.aspx

[Orel33]

Merci beaucoup vous êtes top .

[casefayere]

je vois que tu n'as vraiment pas beaucoup de notions,
donc, 1ère chose, je ne sais pas si tu le fais, provoquer la déclaration des variables obligatoire



maintenant

je déclare mes variable juste après "Sub"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Cel As Range

Cel représente ici une variable "Object" en l'occurrence, un "Range"
ça aide quand on utilise "Find" afin d'éviter les erreurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("F4:F8").Value = Range("D4:D8").Value

j'aurais pu utiliser "Copy" mais j'ai estimé que tu ne prenais que les valeurs donc code raccourci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Cel = Range("F4:F8").Find(Range("E13"))

on cherche donc la valeur de E13 dans la plage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Cel Is Nothing Then Cel = Range("C10")

si la recherche est fructueuse on attribue la nouvelle valeur ("C10") à Cel qui représente la cellule trouvée

[Orel33]

Merci beaucoup, oui je vais paramétrer mon Excel pour provoquer la déclaration des variables obligatoires.

J'ai du boulot pour apprendre le code vba, c'est vraiment un langage qui m'intéresse et je pense qu'en entreprise c'est fort utile .

Encore une fois merci.