Discussion :

[Zazinho]

Bonjour à tous,

Je débute sur VBA et aurais bien besoin de votre aide,

Je cherche en effet à réaliser une boucle me permettant de réaliser la chose suivante :

Dans la colonne B je dispose d'une suite de montant, or parfois le format ne permet pas de traiter la donnée,

Pour exemple dans le fichier : en B34, " 175-" que je souhaiterai à l'aide d'une macro retraiter afin d'obtenir "-175"

Les données positives n'ont pas besoin d'etre retraitées,

Merci à l'ame charitable qui me donnera un coup de main !

Bonne journée

[Thautheme]

Oi Zaziho, bonjour le forum,

Essaie comme ca :

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
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As inrteger 'déclare la variable I (Incrément)
 
Set O = Worksheets("Ex Developpez.net ") 'définit l'onglet O (à adapter à ton cas)
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV
    TV(I, 2) = Trim(TV(I, 2)) 'supprime les espaces avant et après de la donnée ligne I colonne 2 de la boucle
    'si le premier caractère à droite (= le dernier caractère) est un moins "-",
    'la donnée ligne I colonne 2 de la boucle devient négative et le dernier caractère est supprimé
    If Right(TV(I, 2), 1) = "-" Then TV(I, 2) = -Left(TV(I, 2), Len(TV(I, 2)) - 1)
Next I 'prochaine ligne de la ,boucle
O.Range("A1").Resize(UBound(TV, 1), 2).Value = TV 'renvoie le tableau TL dans A1 redimensionnée
End Sub

[Zazinho]

Bonjour Thauthème,

Merci beaucoup pour ton aide, et désolé pour le temps de réponse (week end prolongé oblige)

En revanche, comme l'exemple était bidon (bien entendu), je cherche à adapter la macro pour la colonne X et non la colonne B, hors les données de la colonne B sont copié dans la colonne X,

Est ce que quelqu'un pourrait m'indiquer comment l'adapter ?

Voila comment j'ai adapté :

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
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
 
Set O = Worksheets("Ex Developpez.net ") 'définit l'onglet O (à adapter à ton cas)
TV = O.Range("X1").CurrentRegion 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV
    TV(I, 24) = Trim(TV(I, 24)) 'supprime les espaces avant et après de la donnée ligne I colonne 2 de la boucle
    'si le premier caractère à droite (= le dernier caractère) est un moins "-",
    'la donnée ligne I colonne 2 de la boucle devient négative et le dernier caractère est supprimé
    If Right(TV(I, 24), 1) = "-" Then TV(I, 24) = -Left(TV(I, 24), Len(TV(I, 24)) - 1)
Next I 'prochaine ligne de la ,boucle
O.Range("X1").Resize(UBound(TV, 1), 24).Value = TV 'renvoie le tableau TL dans A1 redimensionnée
End Sub

Quelles sont les erreurs please ?

Merci beaucoup !

[halaster08]

Bonjour,

N'oublie pas les balises code (bouton #) ça rend le message beaucoup plus lisible

Tu dois laisser A1 à la dernière ligne:

Code :

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

O.Range("A1").Resize(UBound(TV, 1), 24).Value = TV 'renvoie le tableau TL dans A1 redimensionnée

Et ce serait mieux de laisser sur cette ligne aussi:

Code :

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

TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV

[Zazinho]

Super, Merci beaucoup !

[Thautheme]

Bonjour le fil, bonjour le forum,

Je te remercie aussi Halaster d'avoir pris le relai.