Modifier d'une cellule Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
l
lembmc
Membre habitué
Membre habitué
Messages : 142
Inscrit le : 30 avril 2014
Version d'Excel : 2010 FR

Message par lembmc » 5 janvier 2019, 21:03

Salut
svp je veux modifier toutes les cellules de la plage H9:H18 une fois pour toutes si la cellule H5 change par ex :
si H5 = 5 automatiquement la plage h9:h18 = 5 etc.....
avec ( Worksheet_Change)

merci d'avance
Ex.xlsm
(8.63 Kio) Téléchargé 4 fois
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'564
Appréciations reçues : 97
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 5 janvier 2019, 21:59

Bonjour toutes et tous

(merci Ric)

à tester
crdlt,
André
Ex__v2.xlsm
merci Ric j'avais buggué mdr
(19.71 Kio) Téléchargé 3 fois
Modifié en dernier par Andre13 le 6 janvier 2019, 08:57, modifié 2 fois.
1 membre du forum aime ce message.
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 1'953
Appréciations reçues : 161
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr

Message par ric » 5 janvier 2019, 22:25

Bonjour à tous,

@Andre13 > relis ton message, je crois qu'il manque un petit bout ... :roll:




ric
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code. :mrgreen:
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'564
Appréciations reçues : 97
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 5 janvier 2019, 23:09

Merci Ric ce soir je bug de trop,
désolé :oops:
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'564
Appréciations reçues : 97
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 6 janvier 2019, 09:00

Bon,jour toutes et tous,

voili voila! au cas ou je mets le code là
il peut être améliorer je pense aussi, si ce n'est pas en alphanumérique on supprime le contenu de la cellule H5 par exemple
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo plouf ' j'aime bien la mer, les vagues en cas d'erreur plouf on sort de la Sub

With Range("H5")
    If Not IsEmpty(.Value) And IsNumeric(.Value) Then Sheets("feuil1").Range("H9:h19").Value = Range("H5").Value
        End With
           
plouf:
Exit Sub

End Sub
cdrlt,
André
1 membre du forum aime ce message.
l
lembmc
Membre habitué
Membre habitué
Messages : 142
Inscrit le : 30 avril 2014
Version d'Excel : 2010 FR

Message par lembmc » 6 janvier 2019, 11:34

merci cordialement
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message