Macro pour convertir les cellules en négatif
yohandu12
Messages postés
14
Date d'inscription
Statut
Membre
Dernière intervention
-
yohandu12 Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
yohandu12 Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
Bonjour
pour mon projet,
je cherche une marco qui pourrait me convertir les valeurs en négatifs pour toutes les cellules de la colonne G
qui respecte la condition suivante: i la condition est que sur la colonne F une cellule porte le caractère "C"
Merci d'avance pour votre aide !!!!!!!!!!!
pour mon projet,
je cherche une marco qui pourrait me convertir les valeurs en négatifs pour toutes les cellules de la colonne G
qui respecte la condition suivante: i la condition est que sur la colonne F une cellule porte le caractère "C"
Merci d'avance pour votre aide !!!!!!!!!!!
A voir également:
- Macro pour convertir les cellules en négatif
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel pour additionner plusieurs cellules - Guide
- Convertir epub en kindle - Guide
- Convertir youtube en mp3 avec audacity - Guide
4 réponses
Bonjour,
"qui respecte la condition suivante: i la condition est que sur la colonne F une cellule porte le caractère "C""
Un seul c dans la colonne ou un c devant la cellule G et passage en negatif de cette cellule ????
"qui respecte la condition suivante: i la condition est que sur la colonne F une cellule porte le caractère "C""
Un seul c dans la colonne ou un c devant la cellule G et passage en negatif de cette cellule ????
Re,
ouvrir le VBA avec Alt+F11 (au cas ou vous ne le saviez pas)
double click sur la feuille ou vous avez vos donnees (idem ci-dessus)
collez le code ci-dessous
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col_F As Range, Cellule As Range, D_L_G As Long
'Recherche derniere cellule non vide Colonne G
D_L_G = Columns("G").Find("*", , , , , xlPrevious).Row
If Not Application.Intersect(Target, Range("F1:G" & D_L_G)) Is Nothing Then
Set Col_F = Range("F1:F" & D_L_G)
For Each Cellule In Col_F
If (Cellule.Value = "C" Or Cellule.Value = "c") And Range("G" & Cellule.Row) > 0 Then
Range("G" & Cellule.Row) = Range("G" & Cellule.Row) - (Range("G" & Cellule.Row) * 2)
ElseIf Cellule.Value = "" And Range("G" & Cellule.Row) < 0 Then
Range("G" & Cellule.Row) = Abs(Range("G" & Cellule.Row))
ElseIf Cellule.Value <> "" And Range("G" & Cellule.Row) = 0 Then
Cellule.Value = ""
End If
Next Cellule
End If
End Sub
Si Ok et besoin explications, pas de probleme
Bonne suite
ouvrir le VBA avec Alt+F11 (au cas ou vous ne le saviez pas)
double click sur la feuille ou vous avez vos donnees (idem ci-dessus)
collez le code ci-dessous
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col_F As Range, Cellule As Range, D_L_G As Long
'Recherche derniere cellule non vide Colonne G
D_L_G = Columns("G").Find("*", , , , , xlPrevious).Row
If Not Application.Intersect(Target, Range("F1:G" & D_L_G)) Is Nothing Then
Set Col_F = Range("F1:F" & D_L_G)
For Each Cellule In Col_F
If (Cellule.Value = "C" Or Cellule.Value = "c") And Range("G" & Cellule.Row) > 0 Then
Range("G" & Cellule.Row) = Range("G" & Cellule.Row) - (Range("G" & Cellule.Row) * 2)
ElseIf Cellule.Value = "" And Range("G" & Cellule.Row) < 0 Then
Range("G" & Cellule.Row) = Abs(Range("G" & Cellule.Row))
ElseIf Cellule.Value <> "" And Range("G" & Cellule.Row) = 0 Then
Cellule.Value = ""
End If
Next Cellule
End If
End Sub
Si Ok et besoin explications, pas de probleme
Bonne suite