VBA et Ctrl+H

Hello a tous

Assez debutant en VBA je recherche a automatiser un Ctrl+H non pas avec des valeur fixes mais fonctions de valeurs de 2 cellules

en gros et pour simplifier :

Dans les formules du range ci dessous

Range("B11:X14")

Il faudrait qu'a chaque fois qu'il croise la valeur de la cellule A1 elle soit remplacée par celle de la cellule A2

Merci par avance et bonne journée

Bonjour Gwigni, bonjour le forum,

Essaie comme ça :

Code:

---

1 2 3 4 5 6 7 8

Sub Macro1() Dim CEL As Range 'déclare la variable CEL   For Each CEL In Range("B11:X14") 'boucle sur toutes les cellules CEL de la plage B11:X14 'si la valeur de la cellule CEL est égale à la valeur de la cellule A1 alors la valeur de la cellule CEL devient la valeur de la cellule A2 If CEL.Value = Range("A1").Value Then CEL.Value = Range("A2").Value Next CEL 'prochaine cellule de la boucle End Sub

---

Je pense qu'il manque le End If

Autre proposition :

Code:

---

Range("B11:X14").Replace(Range("A1"), Range("A2"))

---

A lire : https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

Un petit coup d'enregistreur de macro aurait put te mettre sur cette voie.

Citation:

---

Envoyé par zoltar_x

Je pense qu'il manque le End If

---

Tu penses faux : lorsque le Then ne déclenche qu'une action, elle peut être écrite sur la même ligne et ne nécessite pas de End If.
C'est une syntaxe qui existe depuis les premiers Basics dans les années 70.
A lire : https://docs.microsoft.com/fr-fr/off...else-statement

Exact. Je le mettrai même s'il est facultatif. Question de bonne syntaxe.
La déclaration de variables est aussi facultative en Vba (le type variant étant par défaut) mais il est préférable de les déclarer pour avoir du code un tant soit peu pro.

Citation:

---

Envoyé par zoltar_x

Exact. Je le mettrai même s'il est facultatif. Question de bonne syntaxe.

---

ATTENTION
Facultatif, pas vraiment.

ceci est correct

Code:

---

1 2 3 4 5 6

If Num_Mois = 1 Then MyString = "Janvier" = If Num_Mois = 1 Then MyString = "Janvier" End If

---

ceci n'est pas correct

Code:

---

If Num_Mois = 1 Then MyString = "Janvier" End If

---

Donc je suis de l'avis de dire 2 synthaxes différentes plutôt de facultatif

Citation:

---

Envoyé par zoltar_x

La déclaration de variables est aussi facultative en Vba (le type variant étant par défaut) mais il est préférable de les déclarer pour avoir du code un tant soit peu pro.

---

Je suis tout à fait d'accord avec toi il est préférable de déclarer les variables. l'instruction : "Option Explicit" permet justement d'aider le développeur à ne pas oublier de faire ses déclarations (du coup ce n'est plus facultatif :mrgreen:)

A bientôt

Bonjour,
En fait comme dit dans les réponses précédentes il y a deux syntaxes possibles et End If n'est requis que dans le cas où l'instruction est écrite sur plusieurs lignes car évidemment le Else sur une seule ligne est autorisé

Code:

---

If a = 0 Then MsgBox "C'est nul" Else MsgBox "Ok"

---

bonsoir,

Code:

---

1 2 3 4 5

Sub test() Dim Mois() Mois = Array("", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre") Debug.Print Mois(Month(Date)) End Sub

---

mais dans le fils je n'es rien vue qui arrive à la conclusion qu'il fallait replacer le n° mois par son texte!

Bonjour,
Il y a également la fonction MonthName

Code:

---

1 2 3

Sub t() Debug.Print MonthName(Month(Date)) End Sub

---

Citation:

---

Envoyé par zoltar_x

Exact. Je le mettrai même s'il est facultatif. Question de bonne syntaxe.
La déclaration de variables est aussi facultative en Vba (le type variant étant par défaut) mais il est préférable de les déclarer pour avoir du code un tant soit peu pro.

---

il n'est pas facultatif c'est la bonne syntaxe!
Pour la déclaration des variables je suis d'accord même si j'en ai cur dans cet exemple !

Code:

---

1 2 3 4 5 6

if a=b then v=c else v=y if a=b then v=c else v=y end if

---

Pièce jointe 532848