Supprimer + inputbox + formule Ctrl F

[akrillon]

Bonjour à tous,
Je suis sur un problème épineux, étant novice je fais de mon mieux mais je bloque ^^

j'ai besoin de créer une macro qui me permette de supprimer en une fois :
-un onglet
-Une colone de tableau dans un autre onglet
-Et pour finir une autre colone dans un autre onglet ^^

Tout cela, (sinon ce serait beaucoup trop simple...) en fonction d'un chiffre rentré dans une inputbox!

Comme c'est un peu compliqué et que je ne m'exprime surement pas très clairement je vous ai fais un petit classeur d'exemple.

Je vous donne le résultat de mes recherches actuel :

Sub Bouton1_Cliquer()

Dim resultat As String
resultat = InputBox("Contact number", "Delete Contact")

Dim Pref As String, Num As Integer, DerNom As String, NouvNom As String, DerCol As Integer

Pref = "Contract "
DerNom = Worksheets(Worksheets.Count).Name
'récupération du N° feuille
Num = resultat
'création nom de feuille
NouvNom = Pref & Num
'Suppression de la feuille (Marche pas)
Application.DisplayAlerts = False
Sheets("NouvNom").Delete

'renommage des nouvelles feuilles (Renome tous les onglets et pas que ceux ititulé contact)
Dim Feuille As Worksheet, Boucle As Long
Boucle = 1
For Each Feuille In Worksheets
Feuille.Name = ("Contract ") & Boucle
Boucle = (Boucle + 1)
Next Feuille

'Suppr colonne feuille Summary (La recherche crtl+F ne s'active pas)
Sheets("Summary").Select
Cells.Find(What:=NouvNom, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Resize(10).Select
Selection.Delete

'Suppr colonne feuille Data (Idem...)
Sheets("Data").Select
Cells.Find(What:="NouvNom", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Resize(16).Select
Selection.Delete

End Sub

Voila, si Quelqu'un peux m'aider j'en serais vraiment reconnaissant parce que la vraiment je bloque...
Merci d'avance

 

[JCGL]

Re : Supprimer + inputbox + formule Ctrl F

Bonjour à tous,

Pour la première partie :

    Num = InputBox("Contact number", "Delete Contact")
    Pref = "Contract"
    'création nom de feuille
    Nouv = Pref & " " & Num
    'Suppression de la feuille
    Application.DisplayAlerts = False
    Sheets(Nouv).Delete
    Application.DisplayAlerts = True

Pour la suite pas trop compris le renommage.

A+ à tous

 

[Robert]

Re : Supprimer + inputbox + formule Ctrl F

Bonsoir Akrillon, JCGL, Bonsoir le forum,

Super ton fichier exemple avec un mélange Contact / Contract ! J'ai bien galéré merci...
Dans le code j'ai opté pour Contact...
Dans ton fichier modifié en pièce jointe j'ai aussi déplacé le bouton de l'onglet Summary en colonne A car comme je supprime des colonnes, je ne voulais pas qu'il disparaisse. Code commenté...
Le fichier :

 

[akrillon]

Re : Supprimer + inputbox + formule Ctrl F

Bonjour, à Tous

Robert vraiment désolé je voulais modifier un fichier de départ et j'ai pas bien tout vérifié...
Mais par contre vraiment merci à vous deux super boulot!
Je ne pensais pas avoir une réponse si rapide et si juste!

Merci infiniment à vous deux !