chtite24
XLDnaute Nouveau
Bonjour,
Voici mon problème : dans une colonne, j'ai une suite de référence (Ap_Ref) du style patatePC0026, patatePC0027 ...
Dans un premier temps je veux extraire les chiffres de la référence -y compris les zéro- (stockés dans ma variable Ref) de la cellule que j'ai choisi puis, lui donner la valeur de référence +1 et enfin rechercher toutes les autres références supérieure a celle ci pour y ajouter +1.
Je m'explique,
ma cellule choisi contient par exemple patatePC0025,
ma macro me créée une ligne en dessous de cette référence, dans laquelle je veux afficher patatePC0026,
du coup, la référence en dessous qui été "patatePC0026", doit passer "patatePC0027", et ainsi de suite pour toutes les références en dessous de celle que j'ai sélectionnée...
Je ne sais pas si je suis bien claire...
Voici mon début de code, mais déja je bloque sur comment garder les zéro...
Mais le souci c'est que si ma référence est patatePC0026, il me renvoi juste 26, alors que je voudrais 0026
Et après je dois recomposer ma réference : patatePC & chaine_nombre+1
Ensuite, ajouter +1 a toutes les references dont les chiffres sont supérieurs a chaine_nombre
Je remercie d'avance celui qui pourra m'aider.
N'hésitez pas à me poser des questions si je ne suis pas très claire... ^^
Voici mon problème : dans une colonne, j'ai une suite de référence (Ap_Ref) du style patatePC0026, patatePC0027 ...
Dans un premier temps je veux extraire les chiffres de la référence -y compris les zéro- (stockés dans ma variable Ref) de la cellule que j'ai choisi puis, lui donner la valeur de référence +1 et enfin rechercher toutes les autres références supérieure a celle ci pour y ajouter +1.
Je m'explique,
ma cellule choisi contient par exemple patatePC0025,
ma macro me créée une ligne en dessous de cette référence, dans laquelle je veux afficher patatePC0026,
du coup, la référence en dessous qui été "patatePC0026", doit passer "patatePC0027", et ainsi de suite pour toutes les références en dessous de celle que j'ai sélectionnée...
Je ne sais pas si je suis bien claire...
Voici mon début de code, mais déja je bloque sur comment garder les zéro...
Code:
Ap_Ref = Liste_Reference 'je stock dans Ap_Ref, ma reference choisie dans ma combobox
Sheets(feuille).Select
Sheets(feuille).Cells.Find(What:=Ap_Ref).Select 'recherche la reference dans la feuille
num_ligne = Sheets(feuille).Cells.Find(What:=Ap_Ref).Row + 1 'numero de ligne en dessous de la reference
Sheets(feuille).Rows(num_ligne).Insert Shift:=xlDown 'ajoute une ligne
For i = 1 To Len(Ap_Ref) 'boucle pour extraire les chiffres de la reference
If Mid(Ap_Ref, i, 1) >= "0" And Mid(Ap_Ref, i, 1) <= "9" Then
chaine_nombre = chaine_nombre & Mid(Ap_Ref, i, 1)
End If
Next i
Mais le souci c'est que si ma référence est patatePC0026, il me renvoi juste 26, alors que je voudrais 0026
Et après je dois recomposer ma réference : patatePC & chaine_nombre+1
Ensuite, ajouter +1 a toutes les references dont les chiffres sont supérieurs a chaine_nombre
Je remercie d'avance celui qui pourra m'aider.
N'hésitez pas à me poser des questions si je ne suis pas très claire... ^^