XL 2010 *1 + 1 numero

[Bens7]

Bonjour a tous !
Voila mon soucci (que j'ai bien sur essaye de Googler et de faire moi meme mais etant novice en VBA je bug)
dans mon tableau (et mon système de travail) le carachtere : * signifie que le client repond pas ....
Donc *3 : signifie le client ne repond pas 3 fois ...ect ect...
J'aimerais via un bouton tous simplement rajouter 1 apres le : *
c'est a dire *3 > clik > deviens *4 ect....plus je clik plus sa rajoute voili voilou
je vous joint un fichier en piece sjointes
Je precise que il ya des notes apres le : *1 / blablbalbablablba
ces dernieres ne doivent pas changer.... juste : *2 / blablbalbablablba

Merci !!!!!

 

[WTF]

Bonjour Bens7,
Voici une proposition.
C'est probablement pas la plus belle macro du monde, mais ca marche...

 

[Bens7]

Ha oui .. effectivement mais non ... dsl mon tableau est plein sur 25 collone et 1500 lignes loll ... dsl
.

 

[WTF]

Alors désolé, pas assez bon en Vba,
Sinon tu peux faire en sorte que la cellule qui serve pour le calcul (chez moi A1) soit en dehors de ton tableau : après la colonne 25....

 

[WTF]

Sinon regardes ce post.
Je pense que tu as toutes les infos, notamment dans les exemples de MJ13.

https://www.excel-downloads.com/threads/aide-pour-creer-compteur-excel.118198/

 

[Bens7]

Non pas propre sur le cote du tableau et A1 deja pris
j'ai lu un post similaire le +1 c'est pas un probleme c'est de garder le * et les notes apres

 

[Alza]

Bonjour,

Private Sub CommandButton2_Click()
Dim x As String
With Sheets("Feuil1")
x = .Cells(2, 22)
Mid(x, 2, 1) = Mid(x, 2, 1) + 1
.Cells(2, 22) = x
End With
End Sub

Pour l'instant j'ai ça ..
Je ne comprend pas bien la structure de ton fichier.. Il y'a donc 1500 lignes remplies dans la colonne note ? Car la tu nous fournis une case mais on ne sait pas de quel façon faire boucler le code ..

 

[Bens7]

Incroyable ca marche !!!
oui apres je vais l'adapter ha mon userform reel du coup x=activecell bblablablabbla je vais me debrouiler...
Alors par contre 2 petit bug :
1) *1 a *9 : ca marche apres ca reviens a *1
2) si *14 >*24 >*34 > *44 ectt.... au lieu de *15,*16,*17

 

[Alza]

Ah oui bien sur comment j'ai pu ne pas penser à ça !

Dans le cas ou tu n'as jamais aucun chiffre dépassant 100 celui-ci va marcher (ça joue sur l'espace blanc avant l'anti slash qui permet de monter à 2 chiffres), par contre si t'as parfois plus de 3 chiffres va falloir que je revois un peu le code ..

Private Sub CommandButton2_Click()
Dim x As String
With Sheets("Feuil1")
x = .Cells(2, 22)
Mid(x, 2,2) = Mid(x, 2,2) + 1
.Cells(2, 22) = x
End With
End Sub

 

[Hieu]

Re Benz, salut, le fil,

Un essai :

Private Sub CommandButton1_Click()
Set cel = Sheets("Feuil1").Range("v2")
pos = WorksheetFunction.Search(" ", cel, 1)
cel.Value = "*" & Mid(cel, 2, pos - 1) + 1 & Right(cel, Len(cel) - pos + 1)
End Sub

++

ps : dsl Alza, pas updaté le fil

 

[Alza]

Re !
Tiens sympa je vais garder de coté, je ne connaissais pas le .Search ._.
Le décalage de la partie droite me posait problème, pas encore très à l'aise avec la manip des chaînes de caractères..
Ca va bien m'aider moi aussi, merci

 

[Bens7]

Alza top ! (dsl Hieu....)
Bon juste faut pas ce tromber et bien mettre *xx / et si pas de * au debut ca bug...
Oserais-je :
- Si le debut de .Cells(2, 22) ne commence pas par * alors:.Cells(2, 22)= *1 / & .Cells(2, 22)
comme ca au moin on a le bon format pour les suivant avec l'espace....

 

[Bens7]

Désole d’être chiant mais l'espace apres l'anti slash n'est pas souvent present et on ne depasse jamais les 2 chiffres du coup on a ca comme forme :
*11/ ou *11 / ou *11F/ ou *11f /

 

[Alza]

Alza top ! (dsl Hieu....)
Bon juste faut pas ce tromber et bien mettre *xx / et si pas de * au debut ca bug...
Oserais-je :
- Si le debut de .Cells(2, 22) ne commence pas par * alors:.Cells(2, 22)= *1 / & .Cells(2, 22)
comme ca au moin on a le bon format pour les suivant avec l'espace....

Je te propose un essai basé sur le code de Hieu, j'ai pas excel sous la main pour tester alors ne m'en tiens pas rigueur s'il y'a des erreurs ^^'

Edit : après test ça bug Sinon le code de mapomme est plus court et marche nickel

 

[mapomme]

Bonsoir Bens7, à tous,

Un essai avec le code suivant:

Private Sub CommandButton1_Click()
  If Left([v2], 1) = "*" Then [v2] = Replace([v2], Val(Mid([v2], 2)), Val(Mid([v2], 2)) + 1, 1, 1)
End Sub