Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Petite macro

Petite macro

3 réponses
Avatar
chris
Bonjour le ng,

Voila, Je voudrais quand je clique en E1 que la feuille 2 prenne le nom donné en A1 et ansi de suite pur e2 le nom donné en A2. s'il n'ya plus de feuille, qu'i en crée une en me demandant le nom que je veux lui donner (imputbox)
Merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ru-th
Salut

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Target.Column = 5 Then
Cancel = True
Sheets(Target.Row + 1).Name = Range("a" & Target.Row).Text
End If
End Sub

a+
rural thierry
"chris" a écrit dans le message de news:

Bonjour le ng,

Voila, Je voudrais quand je clique en E1 que la feuille 2 prenne le nom
donné en A1 et ansi de suite pur e2 le nom donné en A2. s'il n'ya plus de

feuille, qu'i en crée une en me demandant le nom que je veux lui donner
(imputbox)
Merci


Avatar
ru-th
Petit correctif
je ne lis jamais les question en une seule fois ;-((

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Target.Column = 5 Then
Cancel = True
rep = Range("a" & Target.Row).Text
If rep = "" And Sheets.Count >= Target.Row + 1 Then rep = InputBox("Quel nom
?")
Sheets(Target.Row + 1).Name = rep
End If
End Sub

"ru-th" a écrit dans le message de news:
eLV$
Salut

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Target.Column = 5 Then
Cancel = True
Sheets(Target.Row + 1).Name = Range("a" & Target.Row).Text
End If
End Sub

a+
rural thierry
"chris" a écrit dans le message de news:

Bonjour le ng,

Voila, Je voudrais quand je clique en E1 que la feuille 2 prenne le nom
donné en A1 et ansi de suite pur e2 le nom donné en A2. s'il n'ya plus de

feuille, qu'i en crée une en me demandant le nom que je veux lui donner
(imputbox)
Merci






Avatar
J-Dan
salut Chris,

j'arrive apres Ru-th, mais je t'envoie quand meme ma
solution :

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
On Error Resume Next
Dim a As Worksheet
If Target.Column <> 5 Or _
Target.Row > thisWorkbook.Worksheets.Count Then
Exit Sub
End If
If Target.Row + 1 > ThisWorkbook.Worksheets.Count Then
NewSheet = InputBox("creer nouvelle feuille")
Set a = Sheets.Add
LastSheet = Worksheets.Count
With a
.Name = NewSheet
.Move after:=Sheets(LastSheet)
End With
Worksheets(1).Activate
Else
Sheets(Target.Row + 1).Name = Cells(Target.Row, 1)
End If

End Sub

j'espere que ca correspond a ce que tu desires,

bon courage
-----Message d'origine-----
Salut

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, Cancel As

Boolean)
On Error Resume Next
If Target.Column = 5 Then
Cancel = True
Sheets(Target.Row + 1).Name = Range("a" &
Target.Row).Text

End If
End Sub

a+
rural thierry
"chris" a écrit dans
le message de news:


Bonjour le ng,

Voila, Je voudrais quand je clique en E1 que la
feuille 2 prenne le nom


donné en A1 et ansi de suite pur e2 le nom donné en A2.
s'il n'ya plus de

feuille, qu'i en crée une en me demandant le nom que je
veux lui donner

(imputbox)
Merci



.