OVH Cloud OVH Cloud

macro avec condition

4 réponses
Avatar
JC
Bonjour

Je suis novice dans les macros
J'arrive à utiliser l'enregistreur mais je ne ne sais pas y inclure des
conditions

Comment traduire en vba dans l'éditeur de macro
Si colonne a=x alors dans colonne c mettre le résultat indiqué dans colonne
b

X=un chiffre

merci de m'aider

4 réponses

Avatar
EMiLe
Voila les coditions en VBA

if condition then instruction

If condition then
instruction
Else
inctructiob
End if

Voilà

EMiLe

Bonjour

Je suis novice dans les macros
J'arrive à utiliser l'enregistreur mais je ne ne sais pas y inclure des
conditions

Comment traduire en vba dans l'éditeur de macro
Si colonne a=x alors dans colonne c mettre le résultat indiqué dans colonne
b

X=un chiffre

merci de m'aider





Avatar
JC
merci mais comment tu traduis en vba

si a1A alors dans c1 mettre le résultat de b1 en loccurence 50 sinon
ensemble vide (je ne veux pas de 0, mais plutôt des blancs)
et recopier cette formule toute la colonne c

merci

"EMiLe" a écrit dans le message de news:
#
Voila les coditions en VBA

if condition then instruction

If condition then
instruction
Else
inctructiob
End if

Voilà

EMiLe

Bonjour

Je suis novice dans les macros
J'arrive à utiliser l'enregistreur mais je ne ne sais pas y inclure des
conditions

Comment traduire en vba dans l'éditeur de macro
Si colonne a=x alors dans colonne c mettre le résultat indiqué dans
colonne


b

X=un chiffre

merci de m'aider







Avatar
EMiLe
Tu sélectionne les cellules de la colonne a et voila

Sub PourJC()
Dim cel As Range


For Each cel In Selection
If cel.Value = 41 Then
cel.Offset(0, 2).Formula = cel.Offset(0, 1).Value
Else
cel.Offset(0, 2).Formula = ""
End If
Next

End Sub

ou

Sub PourJC()
Dim cel As Range

For Each cel In Range("a:a")
If cel.Value = 41 Then
cel.Offset(0, 2).Formula = cel.Offset(0, 1).Value
Else
cel.Offset(0, 2).Formula = ""
End If
Next

End Sub


pour faire les 65536 lignes de la colonnes a (ce qui prend un bon bout
de temps

ou

Sub PourJC()
Dim cel As Range

For Each cel In Range("a1:" & Range("a1").End(xlDown).Address)
If cel.Value = 41 Then
cel.Offset(0, 2).Formula = cel.Offset(0, 1).Value
Else
cel.Offset(0, 2).Formula = ""
End If
Next

End Sub


pour faire toutes les cellules a partir de la cellule a1 jusqu'à la
dernière de la colonne a


voilà voilà

EMiLe



merci mais comment tu traduis en vba

si a1A alors dans c1 mettre le résultat de b1 en loccurence 50 sinon
ensemble vide (je ne veux pas de 0, mais plutôt des blancs)
et recopier cette formule toute la colonne c

merci

"EMiLe" a écrit dans le message de news:
#

Voila les coditions en VBA

if condition then instruction

If condition then
instruction
Else
inctructiob
End if

Voilà

EMiLe


Bonjour

Je suis novice dans les macros
J'arrive à utiliser l'enregistreur mais je ne ne sais pas y inclure des
conditions

Comment traduire en vba dans l'éditeur de macro
Si colonne a=x alors dans colonne c mettre le résultat indiqué dans



colonne

b

X=un chiffre

merci de m'aider












Avatar
JC
merci j'essaie



"EMiLe" a écrit dans le message de news:

Tu sélectionne les cellules de la colonne a et voila

Sub PourJC()
Dim cel As Range


For Each cel In Selection
If cel.Value = 41 Then
cel.Offset(0, 2).Formula = cel.Offset(0, 1).Value
Else
cel.Offset(0, 2).Formula = ""
End If
Next

End Sub

ou

Sub PourJC()
Dim cel As Range

For Each cel In Range("a:a")
If cel.Value = 41 Then
cel.Offset(0, 2).Formula = cel.Offset(0, 1).Value
Else
cel.Offset(0, 2).Formula = ""
End If
Next

End Sub


pour faire les 65536 lignes de la colonnes a (ce qui prend un bon bout
de temps

ou

Sub PourJC()
Dim cel As Range

For Each cel In Range("a1:" & Range("a1").End(xlDown).Address)
If cel.Value = 41 Then
cel.Offset(0, 2).Formula = cel.Offset(0, 1).Value
Else
cel.Offset(0, 2).Formula = ""
End If
Next

End Sub


pour faire toutes les cellules a partir de la cellule a1 jusqu'à la
dernière de la colonne a


voilà voilà

EMiLe



merci mais comment tu traduis en vba

si a1A alors dans c1 mettre le résultat de b1 en loccurence 50 sinon
ensemble vide (je ne veux pas de 0, mais plutôt des blancs)
et recopier cette formule toute la colonne c

merci

"EMiLe" a écrit dans le message de news:
#

Voila les coditions en VBA

if condition then instruction

If condition then
instruction
Else
inctructiob
End if

Voilà

EMiLe


Bonjour

Je suis novice dans les macros
J'arrive à utiliser l'enregistreur mais je ne ne sais pas y inclure des
conditions

Comment traduire en vba dans l'éditeur de macro
Si colonne a=x alors dans colonne c mettre le résultat indiqué dans



colonne

b

X=un chiffre

merci de m'aider