Cohabitation de deux Private Sub Worksheet_Change

[apdf1]

Bonsoir

Comment peut-on faire cohabités deux

Private Sub Worksheet_Change(ByVal Target As Range)

Dans la même feuille

Un très grand merci à tout ceux qui pourront m'aider...


Cordialement

Max

 

[Grand Chaman Excel]

Re : Cohabitation de deux Private Sub Worksheet_Change

Tout dépend de ce que tu veux faire. Un peu plus de details peut-être?

 

[Yaloo]

Re : Cohabitation de deux Private Sub Worksheet_Change

Bonsoir apdf1, Grand Chaman Excel,

apdf1 tu ne peux pas, me semble-t-il, mettre 2 Private Sub Worksheet_Change(ByVal Target As Range) dans le même fichier, par contre tu peux mettre tes 2 codes dans un seul Private Sub Worksheet_Change(ByVal Target As Range)

Mets un exemple de tes 2 codes, pour voir s'il y a une solution.

A+

 

[apdf1]

Re : Cohabitation de deux Private Sub Worksheet_Change

Bonsoir Grand Chaman, Yaloo,

Oui peut-être avec un exemple on pourra trouvé une solution

Private Sub Worksheet_Change(ByVal Target As Range)

  If Not Intersect([K2:W2], Target) Is Nothing Then
     D = 7 * Target + DateSerial(2011, 1, 3) - Weekday(DateSerial(2011, 1, 3)) - 4  ', rien = samedi, -1 = vendredi, -2 = jeudi, -3 = mercredi, -4 = mardi, -5 = lundi, -6 = dimanche
     If Target.Comment Is Nothing Then Target.AddComment
     Target.Comment.Text Text:=Format(D, "dddd dd mmm yyyy")
     Target.Comment.Shape.TextFrame.AutoSize = True
 Next C
   End If



'ICI ANNEE 2011 ET 2012



 If Not Intersect([X2:Y2,AE2:AS2], Target) Is Nothing Then
     D = 7 * Target + DateSerial(2012, 1, 3) - Weekday(DateSerial(2012, 1, 3)) - 4  ', rien = samedi, -1 = vendredi, -2 = jeudi, -3 = mercredi, -4 = mardi, -5 = lundi, -6 = dimanche
     If Target.Comment Is Nothing Then Target.AddComment
     Target.Comment.Text Text:=Format(D, "dddd dd mmm yyyy")
     Target.Comment.Shape.TextFrame.AutoSize = True
  Next C
  
 
  End If
End Sub

@+

Max

 

[Yaloo]

Re : Cohabitation de deux Private Sub Worksheet_Change

Re,

Si tu enlèves tes "Next C" ça à l'air de fonctionner.
Ca te mets bien un commentaire avec ta date, en fonction de ta cellule choisie.

A+

 

[apdf1]

Re : Cohabitation de deux Private Sub Worksheet_Change

Re,

Je te remercie beaucoup sa marche nickel aurais tu une idée pour mettre mes commentaires en nom propre ?

J'ai mis ceci pour les formats, et il me manque juste pour mettre les dates en majuscule ?

   For Each C In ActiveSheet.Comments
     C.Shape.AutoShapeType = msoShapeRoundedRectangle 'Forme rectangle
     C.Shape.OLEFormat.Object.Font.Size = 15 'Taille police
     C.Shape.TextFrame.Characters.Font.ColorIndex = 5 'Couleur police bleu
     C.Shape.OLEFormat.Object.Font.Bold = True 'Police en gras
     C.Shape.OLEFormat.Object.Font.Name = "Garamond" ' type de police
     C.Shape.OLEFormat.Object.Font.Italic = True 'texte italic
     C.Shape.Width = 200 'Largeur
     C.Shape.Height = 30 'Hauteur
     C.Shape.Fill.ForeColor.SchemeColor = 52 'Couleur de fond
     C.Shape.TextFrame.HorizontalAlignment = xlHAlignCenter ' texte au centre

  Next C

@+
Max

 

[Yaloo]

Re : Cohabitation de deux Private Sub Worksheet_Change

Re,

Un truc dans ce goût-là :

c.Shape.OLEFormat.Object.Text = WorksheetFunction.Proper(c.Shape.OLEFormat.Object.Text)

A tester

 

[Pierrot93]

Re : Cohabitation de deux Private Sub Worksheet_Change

Bonjour à tous

pour mettre un texte en "nom propre", il existe également la fonction native vba "StrConv"

With c.Shape.OLEFormat.Object
    .Text = StrConv(.Text, vbProperCase)
End With

bonne journée
@+

 

[apdf1]

Re : Cohabitation de deux Private Sub Worksheet_Change

Bonjour Yaloo, Pierrot,

Je vous remercie tous les deux sa marche nickel...!

Je vous souhaite une bonne journée à tous

@+
Max