Discussion :

[liseprachan]

Bonjour,

Je voudrais comment faire l'opération S01 + 1 avec VBA pour trouver la semaine suivante (S02) ?

Merci.

[alsimbad]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub incremente()
partiefixe = "S0"
 
For i = 1 To 3
MsgBox partiefixe & i
Next i
End Sub

[liseprachan]

Voici mes données de départ :
MCM000004 S03 IN/VP4CFF-1A471 S07 10 000
MCM000004 S06 IN/VP4CFF-1A471 S07 12 000

Je voudrais insérer les lignes en rouge :
MCM000004 S03 IN/VP4CFF-1A471 S07 10 000
MCM000004 S04 IN/VP4CFF-1A472 S07 10 000
MCM000004 S05 IN/VP4CFF-1A473 S07 10 000
MCM000004 S06 IN/VP4CFF-1A471 S07 12 000

Merci

[alsimbad]

et elle est ou la question ?

[Qwazerty]

SAlut
Et la date elle est avant ou après le IN ?
Hein non j'ai pas compris la question c'est ça?
[Edit]
Bon tes chaines sont de longueur fix ? je presume.
Comment s'organisent elles dans ton fichier?
[/Edit]
A++
Qwaz

[liseprachan]

Comment créer la même ligne que la ligne précédente juste en incrémentant le numéro de semaine en faisant par ex S06 + 1 ?

[Qwazerty]

Re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
'MCM000004 S03 IN/VP4CFF-1A471 S07 10 000
 
'Attention ca marche que si la longueur de chaine est fixe
 
Dim NSemaine As Integer
Dim LaChaine As String
Dim NewChaine As String
 
'On initialise
LaChaine = "MCM000004 S03 IN/VP4CFF-1A471 S07 10 000"
 
'On recupert la valeur de la semaine
NSemaine = CInt(Mid(LaChaine, 12, 2))
'On incremente
NSemaine = NSemaine + 1
 
'On format le tout
NewChaine = Left(LaChaine, 11) + Format(NSemaine, "00") + Right(LaChaine, 27)
 
 
End Sub

Je sais que ca va pas coller avec ce que tu veux ... mais si tu donne pas plus d'infos... on peut pas deviner
Met un fichier pour voir comment sont organisées tes données.

A++
Qwaz

[ucfoutu]

Bonsoir,

Il me semble que tu devrais éclaircir avec précision un point !

Tes :

MCM000004 S03 IN/VP4CFF-1A471 S07 10 000
MCM000004 S04 IN/VP4CFF-1A472 S07 10 000
MCM000004 S05 IN/VP4CFF-1A473 S07 10 000
MCM000004 S06 IN/VP4CFF-1A471 S07 12 000

Représentent-ils, chacun, le contenu d'une seule cellule ou représentents-ils le contenu (sur une même ligne) de plusieurs colonnes différentes ?

Cette précision est tout de même importante, non ? (et la précision de l'expression accompagne en général celle du code ...)