Modifier des fonction en VBA

[tinet]

bonjour le forum,

j'ai trouvé sur le site un petit fichier qui me serait bien utile dans une de mes fonctions.
malheureusement la lecture de la programmation reste encore pour moi compliqué dans son interprétation.
je suis sûr que certains d'entre vous pourront modifier ce langage très facilement.
je vous mets en copie le fichier.

le fonctionnement du fichier tel qu'il se présente doit rester identique.
la modification que je recherche est dans la colonne "A", je souhaite que sur les onglets apparaissent le numéro associé de la colonne "B".
les raisons sont les suivantes le nombre de caractères permis en écriture sur un onglet
est de 32 caractères ce qui ne m'intéresse pas.

je pense également que certaines des fonctions qui apparaissent dans le fichier ne sont absolument pas nécessaire il a besoin de rajeunir. (j'ai déjà commencé)

en retour-je me débrouiller pour l'adapter à mon fichier.

merci les AS du forum 🙄

a+

 

[Banzai64]

Re : Modifier des fonction en VBA

Bonjour

J'ai du raté quelque chose car c'était vraiment simple

 

[tinet]

Re : Modifier des fonction en VBA

Bonjour Banzai67 et le forum,

ce n'est pas tout à fait ça.
je souhaiterais que le fichier fonctionne de manière suivante.
En "A" j'écris le nom que je souhaite
je valide par création.
L'onglet qui qui est créé doit prendre uniquement le chiffre de la colonne "B" le reste ne doit pas changer.
Et à la suppression je dois retrouver les valeurs de la colonne "A" et supprimer bien sûr la feuille correspondante.

ce qui serait bien également supprimé tout ce qui n'a rien à voir avec cette fonction.

a+

 

[Banzai64]

Re : Modifier des fonction en VBA

Bonjour

A tester

Indiques clairement quelles fonctions tu ne veux pas

A part le "Tout effacer" tout sert

 

[tinet]

Re : Modifier des fonction en VBA

Re,

Super.

Voici mes remarques.
Il faudrai que sur la feuille qui est créée en "C1" soit le résultat de la ligne "A" et le le non la ligne de la cellule "B" (le chiffre)
La colonne se réajustant en permanence pas besoin

En ce qui concerne les fonctions, sans avoir un oeil d'experts, j'avais commencé à rendre la fonction inerte exemple

'Private Sub DispoBoutons()

il me semble que ceci n'est plus nécessaire

Sub SuppFeuille(ByVal sNomFeuille As String)
Const msg1 As String = "Cette feuille n'existe pas"

If ExistenceFeuille(sNomFeuille) Then
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(sNomFeuille).Delete
ShListe.Cells(2 + UserForm1.cboListe.ListIndex, 1).Clear
TriNoms
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Else
MsgBox msg1, vbOKOnly & vbQuestion, "Feuille Introuvable"
End If
End Sub

ceci également car je n'ai pas besoin de vérifier si il y a un doublon

Private Function VerifDoublon() As Boolean
Dim Coll As Collection, LastRow As Long, i As Long
VerifDoublon = False
Set Coll = New Collection
LastRow = ShListe.Range("A" & ShListe.Range("A:A").Rows.Count).End(xlUp).Row
For i = 2 To LastRow
On Error Resume Next
Coll.Add ShListe.Cells(i, 2), CStr(ShListe.Cells(i, 2))
If Err.Number = 457 Then
ShListe.Cells(i, 1).Select
VerifDoublon = True
Set Coll = Nothing
Exit Function
End If
Next i
Set Coll = Nothing
End Function

pour le reste je te laisse en tant qu'expert me donné ton point de vue.
merci encore de ton aide.

a+

 

[Banzai64]

Re : Modifier des fonction en VBA

Bonjour

Je ne comprends plus rien

L'onglet qui qui est créé doit prendre uniquement le chiffre de la colonne "B"

Il faudrai que sur la feuille qui est créée en "C1" soit le résultat de la ligne "A" et le le non la ligne de la cellule "B" (le chiffre)

Dans la feuille en face de chaque nom marques le nom de l'onglet que tu veux avoir

Pour les fonctions
Sub SuppFeuille(ByVal sNomFeuille As String)
Private Function VerifDoublon() As Boolean

Sont utiles :
La première pour justement la suppression d'une feuille
La vérif doublon utile au cas ou tu as entré deux fois fois le même nombre
Pour

La colonne se réajustant en permanence pas besoin

Mets en remarque (ou supprime) la ligne

     .Columns("A:A").Columns.AutoFit

dans la procédure Private Sub TriNoms()

A suivre

 

[tinet]

Re : Modifier des fonction en VBA

Re,

Je suis désolé.

Exemple:
Je note sur la feuille "liste" en A2 (lapin)
je lance la création.
le fichier créé une feuille qui va se nommer "1"
jusque là Ok
sur la feuille qui vient d'être créée "1" en C1 je voudrais le mot (lapin) et non le chiffre (1)

a+

 

[Banzai64]

Re : Modifier des fonction en VBA

Bonjour

Alors dans la procédure

Sub Ajout()

Tu modifies cette ligne

ActiveSheet.Range("c1").Value = sNomFeuille

par celle-ci

ActiveSheet.Range("c1").Value = Rng

Bonne journée

 

[tinet]

Re : Modifier des fonction en VBA

Merci Banzai64,

Avec sa je vais pouvoir reconstruire mon fichier.

a+

 

[tinet]

Re : Modifier des fonction en VBA

Bonsoir le forum
a+