Discussion :

[NONOSSONV]

Bonjour mes amis,

je vouderai séparer la colonne G du fichier ci joint qui contient une macro de deplacement des colonnes:

merci de rajouter la condition dans la macro: si le chiffre est possitif donc il reste dans la meme cellule, si il'est négatif il se deplace au colonne H.

Merci d'avance pour vos aides.

[Menhir]

Je n'ai pas ouvert ton fichier, entre autre pour les raisons expliquées ici :
https://www.developpez.net/forums/d8...s-discussions/

A priori, ton problème peut se résoudre avec un simple If vérifiant la valeur à placer et orientant vers deux renseignements de cellule avec des adresses différentes.
https://msdn.microsoft.com/fr-fr/VBA...else-statement

[NONOSSONV]

je ne suis pas un developpeur est ce que vous pouvez modifier sur ce code?

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
23
24
25
26
27
28
Sub converter()
Dim sh As Worksheet
Dim ws As Worksheet
Dim a As Long
Dim b As Long
 
Set ws = Sheets("Input")
Set sh = Sheets("Output")
 
b = ws.Range("A1").End(xlDown).Row
c = sh.Range("A1").End(xlDown).Row
sh.Activate
sh.Range("A2", Cells(c, "I")).Clear
'sh.Range("A2", Cells(c, "I")).Interior.Color = RGB(255, 255, 255)
For a = 2 To b
sh.Cells(a, "C") = ws.Cells(a, "C")
sh.Cells(a, "A") = ws.Cells(a, "G")
sh.Cells(a, "E") = ws.Cells(a, "I")
sh.Cells(a, "B") = ws.Cells(a, "L")
sh.Cells(a, "G") = ws.Cells(a, "M")
sh.Cells(a, "D") = ws.Cells(a, "X")
 
 
Next
sh.Range("A2", Cells(b, "A")).NumberFormat = "dd/mm/yyyy;@"
 
 
End Sub

[unparia]

Bonjour

je ne suis pas un developpeur est ce que vous pouvez modifier sur ce code?

Si tu viens sur un forum de développeurs, tu en es un.
Ici, on s'entraide (documente-toi sur la définition de ce verbe) entre ... développeurs.
Un forum de développeurs n'a rien à voir avec un "super-marché". Ce n'est pas non plus un site palliatif au fait que l'on n'est pas un développeur

J'observe que tu es inscrit ici depuis déjà 3 ans ...

[NONOSSONV]

Bah Merci pour Rien

[Menhir]

je ne suis pas un developpeur

Ca n'a rien d'incurable si on veut bien s'en donner la peine : http://bidou.developpez.com/article/VBA/

est ce que vous pouvez modifier sur ce code?

Je ne suis pas blanchisseur. Est-ce que tu veux bien faire mon repassage en retard ?
Est-ce que, au moins, tu as pris la peine de lire le lien que j'ai mis dans mon premier message.