Modification partielle de cellule
Bonsoir !
Je souhaiterais pouvoir modifier partiellement une cellule en gardant la première partie et en y ajoutant deux autre ensuite.
Je m'explique...
J'ai une base de donnée (que je ne pourrais pas vous déposer) et il y a eu des erreurs de notés. A partir de la ligne 180 et jusqu'à la ligne 700.
Donc j'ai en
C180 la valeur par exemple AD500\88\520\020
F180 la valeur 10
G180 la valeur 1
C181 la valeur AD500\88\520\021
F181 la valeur 10
G 181 la valeur 2
Et cela continu comme ça jusqu'à 700
Au final, il faudrait qu'apparaisse en C180 AD500\88\0010\0001
Donc il faut garder la première partie AD500\88\ et ajouter les valeurs des deux autres cellules tout en ajoutant 2 ou 3 Zéros selon les cas. Et que le dernier s'incrémente de +1.
AD500\88\0010\0001
AD500\88\0010\0002
AD500\88\0010\0003
Voilà, je ne sais pas du tout comment entamer cette macro, c'est un cas inconnu pour moi pour le moment.
Merci de votre aide
Shorg
Bonjour
Sans macro ( oui c'est possible
Essayes
en colonne libre
=GAUCHE(C180;9)&TEXTE(F180;"0000")&"\"&TEXTE(G180;"0000")Tu tires vers le bas jusqu'à la ligne 700
Tu copies de la ligne 180 à la ligne 700
tu sélectionnes C180
Collage spécial valeurs
tu supprimes les données de la colonne libre
Oui en effet c'est fonctionnel !
Mais je ne peux pas modifier mon tableau. L'idéal serait une macro faisant la même chose, en délimitant le champs d'action de C180 à C700...
Mais déjà c'est une bonne approche qui pourrait me servir pour la suite. Merci.
J'ai une question supplémentaire sur la formule que tu viens de me noter. Si par exemple je souhaite que le 0010 (F180) s'incrémente aussi de 1. ???
AD500\88\0010\0001
AD500\88\0011\0002
AD500\88\0012\0003
Bonjour
Essayes
=GAUCHE(C180;9)&TEXTE(LIGNE()-170;"0000")&"\"&TEXTE(G180;"0000")Shorg a écrit :Mais je ne peux pas modifier mon tableau.
Tu dois bien avoir une colonne libre non ?
Et ton tableau que ce soit par macro ou par la méthode que t'ai dite, sera modifié in fine
Encore une fois bien joué, même si j'ai pas capté le -170...
Mais merci à toi !
Au sujet de mon tableau non modifiable, c'est compliqué d'insérer une colonne... et une macro modifie directement la cellule sans passer par un ajout ailleurs.
Maintenant si quelqu'un à une idée de macro pour la même chose
Bonjour
La macro elle est assez facile à faire
Mais pourquoi insérer une colonne dans ton tableau ?
Tu peux utiliser une colonne en dehors du tableau à moins que ton tableau a 256 colonnes
Tout d'abord merci à Banzai64 , j'ai mieux lu ta formule et les -170 sautent aux yeux ^^
Ensuite, oui en effet je peux faire ceci en dehors du tableau...
Si cela n'est pas trop long à faire, peux tu me donner une idée de la macro, je suis curieux de voir ce que ça peut donner.
Bonsoir
Deux macros simple sans colonne intermédiaires
Option Explicit
Sub Transforme1()
' Avec la colonne F
Dim Tablo
Dim J As Long
Tablo = Range("C180:H700")
For J = 1 To UBound(Tablo)
Tablo(J, 1) = Left(Tablo(J, 1), 9) & Format(Tablo(J, 4), "0000") & "/" & Format(Tablo(J, 5), "0000")
Next J
ReDim Preserve Tablo(1 To UBound(Tablo), 1)
Range("C180:C700") = Tablo
End Sub
Sub Transforme2()
' sans la colonne F
Dim Tablo
Dim J As Long
Tablo = Range("C180:H700")
For J = 1 To UBound(Tablo)
Tablo(J, 1) = Left(Tablo(J, 1), 9) & Format(J + 9, "0000") & "/" & Format(Tablo(J, 5), "0000")
Next J
ReDim Preserve Tablo(1 To UBound(Tablo), 1)
Range("C180:C700") = Tablo
End SubC'est soit l'une soit l'autre mais pas les deux à la suite
Merci c'est superbe !
Ca fonctionne très bien.