Supprimer donnée d'une ligne et l'insérer dans une autre ligne

Nawis Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je travaille actuellement sur une macro VBA sous Excel.
Je dispose de données établies comme telles :

ID Nom Prénom Code
12 untel Pierre 11000010000
150 blabla Paul 12000010000

Pour le code, chaque place ou se trouve un chiffre correspond à une donnée.
Par exemple, 1 = oui, 2= non
1ère place : manger des légumes
2eme place : manger de la viande
etc ...
Ainsi, Pierre a mangé des légumes et de la viande, paul seulement des légumes mais pas de viande.. Enfin bref...

J'aimerais par une macro VBA, remplacer le 7ème "1" par "0" mais créer une nouvelle ligne qui reprend toutes les infos en laissant juste le 1 dans le code. Pour mieux comprendre, je voudrais ça :


ID Nom Prénom Code
12 untel Pierre 11000000000
12 untel Pierre 00000010000
150 blabla Paul 12000000000
150 blabla Paul 00000010000


Mes connaissances en VBA étant assez limitées, quelqu'un pourrait m'aider ?
Merci beaucoup d'avance
A voir également:

1 réponse

Réponse 1 / 1
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour, 
Dim S As String
    S = Cells(Ligne, Colonne)
    Mid(S, 7, 1) = "1"
    Cells(Ligne, Colonne) = S
A+
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses