pb boucle while

[mat]

bonjour a vous tous

je vous ai mis mon fichier en piece jointe pour que vous puissiez comprendre mon probleme.

le fonctionnement est le suivant :

tu selectionne plusieurs lignes tu cliques sur le boutons 'ajout d un test au scenario', dc les tests sont affiche sur la feuil3. puis apres tu cliques sur 'renommer 'et tu verras que toutes les valeurs de la colonne A sont renomme en 'scenario_1'.

ensuite tu reselectionnes des test sur la feuil1 et tu appuies sur le bouton 'ajout de tests au scenario'

dc la les tests ce sont mis a la suite.

puis tu cliques sur 'renommer' et le je veux que les valeurs de la colonne A associe aux nouveaux tests soit renomme en 'scenario_2' et ainsi de suite a chaque fois que tu refait la manip.

en gros la premiere selection de lignes copiees portent le n°1 puis la seconde selection le n°2 et ainsi de suite

on se moment a chaque fois que j appuie sur renommer les tests sont renomme en 'scenario_1' et dc j aimerai corriger ca pour que cela soit incrementé.

voila tout

merci d avance a vous si vous pouvez m aider

@+ mat [file name=Classeur1_20050422161851_20050425172646.zip size=11372]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050422161851_20050425172646.zip[/file]

 

[myDearFriend!]

Bonsoir mat,

Tu peux peut-être essayer de modifier ta procédure 'Validation' comme ci-dessous :

Sub Validation()
Dim L As Long, I As Long
Dim N As Byte           ''Byte' à changer en 'Integer' si le nb de scénario peut dépasser 255
      With Sheets('Feuil3')
            L = .Range('N65536').End(xlUp).Row
            For I = 1 To L
                  If Not (.Cells(I, 1) Like 'scenario_*') Then
                        .Cells(I, 1).Value = 'scenario_' & N + 1 & '\'
                  Else
                        N = Val(Mid(.Cells(I, 1), 10))
                  End If
            Next I
      End With
End Sub

Cordialement,

 

[mat]

merci bcp tu as completement resolu mon probleme dc c trop bien.

merci encore et tu es vraiement un pro.

@+ mat