Création d'onglets

Comme dit, je vais adapter.

Après relecture, il se pourrait bien que ce soit le jardin d'isabelle, ce
qui est plus probable vu la taille du pays.
Quant au chien, il est très beau.
Merci à vous deux pour cette belle solution.
Comme dit, je vais adapter.

C'est fou, sur environ 250 MAJ que je viens de faire

.. Il m'a signalé gentiment ....

Salut Jac
C'est fou, sur environ 250 MAJ que je viens de faire, il n'y en a même pas une qui m'aurait signalé ce
manquement. -))))
Heureusement que les copains ( et copines) sont là pour veiller au grain.
J'ai parlé du problème de versions au prof. Il m'a signalé gentiment qu'il y avait une visionneuse Excel ou
un autre système appelé OpenOffice.
Tu vois qu'il y a loin du jardinage à l'informatique. -((
Mille mercis à vous deux.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : k7r0fn$mu6$

Re..

Comme dit, je vais adapter.

Oui...j'ai omis le nom de la feuille
Profites-en pour l'insérer au cas ou ce n'est pas la feuille "Base" qui est la feuille active du moment
Sinon il y aura quelques surprises ;o))
'-----------------------
Sub Trombine() 'Daniel Colardelle, Jacques Boisgontier
With Sheets("Base")
derlg = .Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
For i = 6 To derlg
With .Cells(i, 1)
.ClearComments
.AddComment
.Comment.Text Text:=.Value
.Comment.Shape.Fill.UserPicture ThisWorkbook.Path & "" & .Value & ".jpg"
.Comment.Shape.Height = 350
.Comment.Shape.Width = 250
.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
.Comment.Shape.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
End With
Next
.Cells(6, 1).Activate
On Error GoTo 0
End With
End Sub
'------------------------
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
50a0fae4$0$3119$

Après relecture, il se pourrait bien que ce soit le jardin d'isabelle, ce qui est plus probable vu la
taille du pays.
Quant au chien, il est très beau.
Merci à vous deux pour cette belle solution.
Comme dit, je vais adapter.

C'est fou, sur environ 250 MAJ que je viens de faire

.. Il m'a signalé gentiment ....

Salut Jac
C'est fou, sur environ 250 MAJ que je viens de faire, il n'y en a même pas
une qui m'aurait signalé ce manquement. -))))
Heureusement que les copains ( et copines) sont là pour veiller au grain.
J'ai parlé du problème de versions au prof. Il m'a signalé gentiment
qu'il y avait une visionneuse Excel ou un autre système appelé OpenOffice.
Tu vois qu'il y a loin du jardinage à l'informatique. -((
Mille mercis à vous deux.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
k7r0fn$mu6$

Re..

Comme dit, je vais adapter.

Oui...j'ai omis le nom de la feuille
Profites-en pour l'insérer au cas ou ce n'est pas la feuille "Base" qui
est la feuille active du moment
Sinon il y aura quelques surprises ;o))
'-----------------------
Sub Trombine() 'Daniel Colardelle, Jacques Boisgontier
With Sheets("Base")
derlg = .Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
For i = 6 To derlg
With .Cells(i, 1)
.ClearComments
.AddComment
.Comment.Text Text:=.Value
.Comment.Shape.Fill.UserPicture ThisWorkbook.Path & "" &
.Value & ".jpg"
.Comment.Shape.Height = 350
.Comment.Shape.Width = 250
.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
.Comment.Shape.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
End With
Next
.Cells(6, 1).Activate
On Error GoTo 0
End With
End Sub
'------------------------
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
50a0fae4$0$3119$

Après relecture, il se pourrait bien que ce soit le jardin d'isabelle, ce
qui est plus probable vu la taille du pays.
Quant au chien, il est très beau.
Merci à vous deux pour cette belle solution.
Comme dit, je vais adapter.

Bonjour Jacquouille,
Sub test()
Dim C As Range
For Each C In [BASE!A6:A50]
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = C.Value
ActiveSheet.Hyperlinks.Add [A1], Address:="", SubAddress:= _
"BASE!A1", TextToDisplay:="RETOUR"
Var = C.Value & "!A1"
Sheets("BASE").Hyperlinks.Add anchor:=C, Address:="",
SubAddress:= _
C.Value & "!A1", TextToDisplay:=C.Value
Next C
End Sub
Cordialement.
Daniel

Bonjour
Certainement suite à mon stress des MAJ, je n'arrive pas à
pondre une macro
assez simple.
1- Je voudrais qu'elle me crée des onglets vides et les nomme avec le
contenu
de la plage a6:a50 de l'onglet appelé "Base"; Ces feuilles
recevront
ultérieurement les photos ad hoc.
2- Que chaque cel de la col A de "Base" aie un lien avec l'onglet
portant le
nom de l'arbre.
3- Dans la cellule A1 de chaque nouvel onglet (baptisé du nom d'un
arbre),
j'aimerais le mot "RETOUR" avec le lien vers l'onglet
"Base".
J'ai fait ce travail il y a une dizaine d'années, pour le boulot, mais
mon
neurone n'en veut plus .....-(( et, bien évidemment, je n'ai pas
repris les
macros à mon départ.... -(
Mille ans de félicité à qui m'aidera. -))
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."