Bonjour,
Quand on n'aime on ne compte pas, alors me revoilà.
J'ai une p'ti soucis avec une copie du contenu d'une cellule d'une onglet nommé pour la petite histoire "PRESENTATION" vers un autre nommé "GlobaMenu".
Voici le code
'---------------------------------------------------------------------------------------------------------------------------------------
Sub CommentAuto()
'
' Macro enregistrée le 05/06/2008
Call ListeFeuilles 'Appel d'une macro créant la feuille "PRESENTATION"
On Error GoTo FinProc
Dim CommentaireOnglet As String
Dim Nbr As Integer
Dim CompteurTemp As Integer
Dim saisie As Variant
Sheets("PRESENTATION").Select
For ligne = 2 To Sheets.Count
If Range("P" & ligne).Value = "" Then
saisie = InputBox("Tapez votre commentaire :", "Boite de saisie")
Range("P" & ligne).Value = saisie
'Range("A!GlobalMenu" & ligne).Value = Range("P" & ligne).Value
'["GlobalMenu"!A(ligne)] = ["PRESENTATION"!A(ligne)] <===========PLANTAGE !!!!!
End If
Next ligne
For J = 2 To Sheets.Count
Next J
For I = 3 To Sheets.Count
CommentaireOnglet = Range("P" & I - 1)
Range("B" & I).Select
Range("B" & I).AddComment
Range("B" & I).Comment.Visible = False
Range("B" & I).Comment.Text Text:=CommentaireOnglet & Chr(10) & ""
Next I
FinProc:
MsgBox ("Commentaire déjà présent !")
End Sub
'-----------------------------------------------------------------------------------------------------------------------------------------------
Mon problème est le suivant.
Je veux que les coemmentaires de associés à chaque ligne dans ma feuille "PRESENTATION" et stockés dans P(ligne)soient automatiquement stockés das un autre onglet dans des cellules allant de A(1) à A(ligne) avec ligne une variable liée au nombre d'onglets crée.
J'ai fait toute sorte d'essais en passant par la copie du style
copie du contenu cellule P(ligne)
sheets("GlobalMenu").select
collage au bon endraoit dans la feuille GlobalMenu
Et, et ça plante, l'erreur 1024 s'affiche cela vient du fait que je sélection en début de Macro la feuille PRESENTATION et que plus tard je selectionne une autre feuille.
JE SUIS PLANTE JE N'AI PLUS D'IDEE.
CE SERAIT CHOUETTE QUE QUELQU'UN ME DONNE UNE COUPE DE MAIN, UNE PISTE.
Configuration: Windows XP
Internet Explorer 6.0