Discussion :

[gwigni]

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

[Thautheme]

Bonjour Gwigni, bonjour le forum,

Essaie comme ça :

Code :

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

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

[zoltar_x]

Je pense qu'il manque le End If

[Menhir]

Autre proposition :

Code :

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

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.

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

[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.

[Igloobel]

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

ATTENTION
Facultatif, pas vraiment.

ceci est correct

Code :

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

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 :

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

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

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 )

A bientôt

[Thumb down]

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 :

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

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

[Thumb down]

bonsoir,

Code :

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

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!

[Philippe Tulliez]

Bonjour,
Il y a également la fonction MonthName

Code :

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

1
2
3
Sub t()
  Debug.Print MonthName(Month(Date))
End Sub