la valeur la plus petite dans chaque feuille crée

phlaurent55

Nous a quittés en 2020

Repose en paix

• 7 Novembre 2013

• #2

Re : la valeur la plus petite dans chaque feuille crée

Bonjour Ilino,

voir fichier joint (pour trouver la valeur minimum)
....... j'ai réorganisé l'emplacement des feuilles

à+
Philippe

 

Pièces jointes

• 111.xlsm

  107 KB · Affichages: 48
• 111.xlsm

  107 KB · Affichages: 41
• 111.xlsm

  107 KB · Affichages: 38

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 8 Novembre 2013

• #3

Re : la valeur la plus petite dans chaque feuille crée

Bonjour Phillipe
merci pour la réponse, mais si je relance le code a nouveau ça n'a pas fonctionné.
Grazie
Nb

Code:

Private Sub CommandButton2_Click()
minimum = 9999999
For i = 4 To Sheets.Count
If Sheets(i).Range("L35") < minimum Then
    minimum = Sheets(i).Range("L35")
    soumissionnaire = Sheets(i).Name
End If
Next i
MsgBox ("La valeur minimum est de " & minimum & vbLf & "trouvée dans la feuille " & soumissionnaire)
End Sub

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Novembre 2013

• #4

Re : la valeur la plus petite dans chaque feuille crée

Re Bonjour

...........mais si je relance le code a nouveau ça n'a pas fonctionné.

Cliquez pour agrandir...

sur le fichier du post#2, je peux relancer 100 fois le code, il fonctionnera correctement 100 fois

n'oublie pas que j'ai réorganisé les onglets et que la boucle dans la macro commence à 4 et se termine au nombre de feuilles contenues dans le classeur

à+
Philippe

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 8 Novembre 2013

• #5

Re : la valeur la plus petite dans chaque feuille crée

phlaurent55 à dit:

Re Bonjour

n'oublie pas que j'ai réorganisé les onglets

Philippe

Cliquez pour agrandir...

Re PHILIPE
ok , donc chaque fois je créer des onglet je dois les organisées ??
NB: je dois organiser les onglets crées on dernière position ????
A+

 

Dernière édition: 8 Novembre 2013

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Novembre 2013

• #6

Re : la valeur la plus petite dans chaque feuille crée

Re,

voici la copie du bas de l'écran,
les trois premiers onglets ( Démarrage, Model et Liste) doivent se trouver en position 1 , 2 & 3
et les autres doivent se trouver à partir de la position 4
si d'autres onglets son à nouveau créés, il suffit de prendre la bonne habitude de les "caler" vers la droite

si la mémoire ne me fait pas défaut, je pense avoir "démasqué" un onglet invisible dans le fichier initial pour pouvoir le remettre plus à gauche


à+
Philippe

 

Pièces jointes

• 111.jpg

  23.7 KB · Affichages: 70
• 111.jpg

  23.7 KB · Affichages: 64

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 8 Novembre 2013

• #7

Re : la valeur la plus petite dans chaque feuille crée

Re PHILIPE
wi, j'avais masque la feuille liste

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 8 Novembre 2013

• #8

Re : la valeur la plus petite dans chaque feuille crée

Re PHILIPE
donc il ne y'a pas une procédure de décaler les 3 feuilles automatiquement sans passé par manuel???
A+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 8 Novembre 2013

• #9

Re : la valeur la plus petite dans chaque feuille crée

Re,

si les 3 feuilles concernées se trouvent dans les 3 premières positions, elles ne devraient pas bouger toutes seules et tu devrais les retrouver à la même place lors des prochaines ouvertures du fichier
il suffit de les mettre à la bonne place définitivement

lors de la création de nouvelle feuilles, elles seront automatiquement "calées" vers la droite
par ce code: Sheets.Add After:=Sheets(Sheets.Count)

à+
Philippe

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 8 Novembre 2013

• #10

Re : la valeur la plus petite dans chaque feuille crée

Re PHILIPE
A QUEL NIVEAU JE RAJOUTE CE CODE ???
Sheets.Add After:=Sheets(Sheets.Count)
JE l'ai insérais dans le code des création des onglets !!!!

Code:

Private Sub CommandButton1_Click()
' Créer des copie selon le model et les renommées
Sheets.Add After:=Sheets(Sheets.Count)

If IsNumeric(Range("D13")) Then

For i = 1 To Range("D13")
x = 15 + (i * 2)
Sheets("Model").Copy After:=Sheets(Sheets.Count - 1)
ActiveSheet.Name = Range("B" & x).Value
Next i

End If

End Sub

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Novembre 2013

• #11

Re : la valeur la plus petite dans chaque feuille crée

Bonjour,

pas tout suivi, mais on pourrait peut être mettre ceci dans le module "thisworkbook", cela aura pour effet de placer en dernier tout nouvel onglet... A voir si cela peut t'aider...

Code:

Option Explicit
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Move after:=Sheets(Sheets.Count)
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 8 Novembre 2013

• #12

Re : la valeur la plus petite dans chaque feuille crée

Bonsoir Pierrot
merci mais ça n'a pas fonctionné 🙁
a+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Novembre 2013

• #13

Re : la valeur la plus petite dans chaque feuille crée

Re,

bah... fonctionne chez moi sur création de tout nouvel onglet..... tu as placé le code ou il fallait ? message d'erreur ou pas le résultat attendu ? attention ce n'est que pour placer un nouvel onglet.... rien traité d'autre, n'ayant pas tout suivi....

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 8 Novembre 2013

• #14

Re : la valeur la plus petite dans chaque feuille crée

Re
ci joint l'exemple a testé

 

Pièces jointes

• ILINO PHILIPE PIEROT.xlsm

  44.7 KB · Affichages: 22

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Novembre 2013

• #15

Re : la valeur la plus petite dans chaque feuille crée

Re,

attention, comme déjà dit, fonctionne lors de la CREATION pas lors d'une COPIE....

 

Vote positif 0 Vote négatif