Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Affecter une valeur à plusieurs cellules sous condition

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

BChaly

XLDnaute Occasionnel
Bonsoir à tous,

Avec le code suivant, j'affecte la valeur "X" dans la cellule "C4" des feuilles "F2, F3, F4",
si la valeur de la cellule "C4" de la feuille "F1" est <> 0.

Comment faire la même chose avec plusieurs cellules situées dans des plages de cellules (Ex. "C4 : D8" et "C10 : D12")? Ces plages peuvent varier mais seront toujours identiques à celles de la feuille "F1" sur toutes les autres feuilles.

Merci pour votre aide.

Cordialement,

BChaly

Code: 
Option Explicit

Sub Test()

    If Sheets("F1").Range("C4") <> 0 Then Sheets("F2").Range("C4") = "X"
    If Sheets("F1").Range("C4") <> 0 Then Sheets("F3").Range("C4") = "X"
    If Sheets("F1").Range("C4") <> 0 Then Sheets("F4").Range("C4") = "X"
    
    Range("A1").Select

End Sub
 

Pièces jointes

Trier par date Trier par votes
Re : Affecter une valeur à plusieurs cellules sous condition

Bonsoir BChaly,

Pas mal ce petit problème. Essayez donc :

Code: 
Sub Test()
Dim ad As String, w As Worksheet, a As Range
ad = "C4:D8,C10:D12"
For Each w In Sheets(Array("F2", "F3", "F4"))
  w.Range(ad).FormulaR1C1 = "=IF(F1!RC<>0,""X"","""")"
  For Each a In w.Range(ad).Areas
    a = a.Value 'remplace les formules par les valeurs
  Next
Next
End Sub
A+
 
Vote positif 0 Vote négatif
Re : Affecter une valeur à plusieurs cellules sous condition

Bonsoir job75,

Super !!! C'est exactement ce que je cherchais. Merci mille fois !!!

Est-ce possible de faire la même chose si les feuilles F2, F3, F4 se situent dans un autre fichier?
Je pense qu'il faut remplacer "Sheets(Array("F2", "F3", "F4"))" par une autre instruction mais laquelle?

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Affecter une valeur à plusieurs cellules sous condition

Re,

Si le classeur où se trouve la feuille F1 se nomme Test_T.xls,

et si le classeur où se trouvent les feuilles F2 F3 F4 se nomme TOTO.xls :

Code: 
Sub Test()
Dim ad As String, w As Worksheet, a As Range
ad = "C4:D8,C10:D12"
For Each w In Workbooks("TOTO.xls").Sheets(Array("F2", "F3", "F4"))
  w.Range(ad).FormulaR1C1 = "=IF([Test_T.xls]F1!RC<>0,""X"","""")"
  For Each a In w.Range(ad).Areas
    a = a.Value 'remplace les formules par les valeurs
  Next
Next
End Sub

Attention, il faut des guillemets anglais dans la formule s'il y a des espaces :

Code: 
 w.Range(ad).FormulaR1C1 = "=IF('[Mon fichier.xls]F1'!RC<>0,""X"","""")"
Bien entendu les 2 fichiers doivent être ouverts.

A+
 
Vote positif 0 Vote négatif
Re : Affecter une valeur à plusieurs cellules sous condition

Bonsoir à tous

Voir si on peut creuser cette piste
Code: 
Sub a()
Dim x: x = Array("F1", "F2", "F3", "F4")
With Sheets(x)
.FillAcrossSheets Worksheets("F1").Range("C4:D8")
.FillAcrossSheets Worksheets("F1").Range("C10:D12")
End With
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Affecter une valeur à plusieurs cellules sous condition

Re,

Rectificatif, le fichier Test_T.xls peut être fermé.

Il faut alors que la formule comporte son chemin d'accès.

Avec la macro dans le fichier des feuilles F2 F3 F4 :

Code: 
Sub Test()
Dim ad As String, w As Worksheet, a As Range
ad = "C4:D8,C10:D12"
For Each w In Sheets(Array("F2", "F3", "F4"))
  w.Range(ad).FormulaR1C1 = "=IF('C:\...\...\[Test_T.xls]F1'!RC<>0,""X"","""")"
  For Each a In w.Range(ad).Areas
    a = a.Value 'remplace les formules par les valeurs
  Next
Next
End Sub
Dans tous les cas il faut les guillemets anglais.

Edit : bonsoir Jean-Marie, bon faut aller au lit maintenant 🙂

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Affecter une valeur à plusieurs cellules sous condition

Bonsoir Job75


Faut pas creuser alors ?
(Pour une fois que j'utilise .FillAcrossSheets (d’ailleurs c'est la première fois 😉 ), c'est pas de chance ! =

Faut que j'aille ronfler ?
 
Vote positif 0 Vote négatif
Re : Affecter une valeur à plusieurs cellules sous condition

Re


J'ai compris

Maintenant je vais dormir 😉
(Je sens qu'on peut creuser finalement non ?)
Code: 
Sub ab()
Dim f As Worksheet, ta, blo: Set f = Worksheets("F1")
ta = f.Range("C4:D8"): blo = f.Range("C10:D12")
f.Range("C4:D8,C10:D12") = "X"
Dim x: x = Array("F1", "F2", "F3", "F4")
With Sheets(x)
.FillAcrossSheets f.Range("C4:D8")
.FillAcrossSheets f.Range("C10:D12")
End With
f.Range("C4:D8") = ta
f.Range("C10:D12") = blo
End Sub
 
Vote positif 0 Vote négatif
Re : Affecter une valeur à plusieurs cellules sous condition

Bonsoir et Merci à tous les deux pour votre aide.

job75,

Très fort, C'est parfait! Je me permets de poser une question subsidiaire: Est-il possible de faire cette opération dans le sens contraire? A savoir laisser le fichier de réception "Toto" fermé, et lancer la macro à partir de "Test_T" qui est le fichier émetteur.

Staple1600,

Le code affecte une valeur "X" à toutes les cellules vides de "F2", "F3", "F4", mais en cherchant un peu je pense que je peux trouver la solution. Y-a-t-il un avantage en utilisant "FillAcrossSheets".

A+
 
Vote positif 0 Vote négatif
Re : Affecter une valeur à plusieurs cellules sous condition

Bonsoir BChaly,

La macro du post #6 lit dans un fichier fermé, ce n'est pas difficile avec une formule de liaison.

Ecrire dans un fichier fermé c'est plus compliqué, on peut le faire par la méthode ADO.

Mais la macro fait des choses assez complexes : entrée d'une formule dans une plage, copie de valeurs sur des zones...

Alors je n'essaye pas d'aller plus loin.

A+
 
Vote positif 0 Vote négatif
Re : Affecter une valeur à plusieurs cellules sous condition

Bonjour job75,

Pas de problème, malgré cela votre aide a été très précieuse et je vous remercie pour vos réponses.

Joyeuses Fêtes de fin d'année.

Cordialement,

BChaly
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
406
escudo
E
  • Résolu(e)
XL 2013 renvoyer valeur sous condition
Réponses
5
Affichages
593
Gégé-45550
  • Question Question
XL 2021 Créer une requête SQL pour lire plusieurs Ranges?
2
Réponses
26
Affichages
2 K
dysorthographie
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
659
AtTheOne
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
2 K
Sghaier Chafaa
S
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
3 K
Banbara
B
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
1 K
salma_hayek
S
E
  • Résolu(e)
Microsoft 365 Boucle sur lignes <>0
Réponses
2
Affichages
496
eric72
E
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
923
crocrocro
C
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
1 K
un internaute
U
P
  • Question Question
XL 2016 Affecter à un bouton plusieurs possibilité
Réponses
3
Affichages
639
Eric KERGRESSE
E
  • Résolu(e)
XL 2019 Copie cellule d'une feuille à l'autre
Réponses
6
Affichages
766
Phil69970
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
668
Lu76Fer
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
676
Quentin2106
Q
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
829
crazy
C
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
650
ZiM
Z
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
1 K
Messan
G
  • Question Question
XL 2021 Dictionnaire - Calcul ne s'effectue pas
Réponses
2
Affichages
493
gvives
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…