Fonction Si en VBA

13GIBE59

XLDnaute Accro

• 9 Juin 2010

• #2

Re : Fonction Si en VBA

Bonjour Sophie.

Essaie ça :

Code:

Sub feeclochette
If [B1] <> 0 Then
[A1] = 0
Else
End If
End Sub

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 9 Juin 2010

• #3

Re : Fonction Si en VBA

bonjour tous . ou simplement

If [b1] <> "" Then [A1] = 0

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 10 Juin 2010

• #4

Re : Fonction Si en VBA

Bonsoir à tous

Si A1 contient une valeur numérique :

Code:

[COLOR="DarkSlateGray"][B][A1].Value = -[A1].Value * IsEmpty([B1])[/B][/COLOR]

ROGER2327
#3675

Lundi 23 Merdre 137 (Interprétation de l'humour, ST)
21 Prairial An CCXVIII
2010-W23-3T23:15:12Z

 

Vote positif 0 Vote négatif

Sophie11

XLDnaute Occasionnel

• 10 Juin 2010

• #5

Re : Fonction Si en VBA

Merci. Pour info A1 contiendra du texte.
Pour ma culture, si je voudrais étirer cette formule sur toutes mes lignes?
If [b1] <> "" Then [A1] = 0

J'ai pensé à faire :
Dim x As Long
x = Sheets("Sheet1").Range("C65536").End(xlUp).Row
Sheets("Sheet1").Range("A1").Resize(x).FormulaR1C1 =??????

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 10 Juin 2010

• #6

Re : Fonction Si en VBA

Bonjour Sophie.

si je voudrais étirer cette formule sur toutes mes lignes?

Cliquez pour agrandir...

Tu veux étirer ta formule sur toutes les lignes,soit, mais en incrémentant la colonne A et la colonne B, ou uniquement la colonne A, ou uniquement la colonne B ?

 

Vote positif 0 Vote négatif

Sophie11

XLDnaute Occasionnel

• 10 Juin 2010

• #7

Re : Fonction Si en VBA

ligne 1 ca serait A1 et B1
ligne 2 => A2 et B2
ligne 3 => A3 et B3
etc...

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 10 Juin 2010

• #8

Re : Fonction Si en VBA

Re.

Essaie ça :

Code:

Sub sophie()
 Dim Cell As Range
    Set Plg = Range([B1], [B65536].End(xlUp))
    For Each Cell In Plg
        If Cell.Value <> "" Then
            Cell.Offset(0, -1).Value = 0
        Else
        End If
    Next
End Sub

 

Vote positif 0 Vote négatif

Sophie11

XLDnaute Occasionnel

• 10 Juin 2010

• #9

Re : Fonction Si en VBA

que dire à part que c'est super 🙂 Merci !!!!

 

Vote positif 0 Vote négatif

A

arro

XLDnaute Nouveau

• 10 Juin 2010

• #10

Re : Fonction Si en VBA

bonsoir à tous j'ai un petit problème sur ma fonction SI en fait j arrive pas à l'insérer dans ma fonction.

Voici mon code:

Private Sub Commande10_Click()
On Error GoTo Err_Commande10_Click
Dim stDocName As String

stDocName = "Req_Archivage"
DoCmd.OpenQuery stDocName, acNormal, acEdit

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Commande10_Click:
Exit Sub

Err_Commande10_Click:
MsgBox Err.Description
Resume Exit_Commande10_Click

End Sub


Actuellement ma commande archive les données de ma base de donnée source et les transfert sur ma base de donnée archive et les supprimes.
Mais j'aimerai mettre une fonction SI pour dire que si la case réalise = oui alors on peux les supprimées sinon mettre un message d'erreur avec du texte.

(Désolé si je m'exprime un peu mal mais je suis débutant sur accès et sur les forums)

Merci d'avance si quelqu'un peut aiguiller

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Juin 2010

• #11

Re : Fonction Si en VBA

Bonsoir à tous


Une proposition "pour étirer une formule"

Code:

Sub a()
With [A1].Resize([B65536].End(xlUp).Row)
    .FormulaR1C1 = "=IF(RC[1]<>"""",0,"""")"
    .Value = .Value
End With
End Sub

 

Vote positif 0 Vote négatif

S

StevenV

XLDnaute Nouveau

• 12 Janvier 2012

• #12

Re : Fonction Si en VBA

Bonjour à tous... J'ai un problème... J'ai créé une "base de donnée".

J'ai créé une liste que j'ai numéroté avec des codes...

Quand j'entre un code par exemple 100... Par une recherchev ça m'indique le nom ... par exemple loyer ...

Mon problème est:

Quand j'entre dans la case: Montant à inscrire un chiffre ... J'aimerais que ce chiffre s'additionne avec le chiffre de la 5ieme colonne (E) vis-à-vis son code... si par exemple le code loyer est 100 et que j'entre le code 100 et que j'aimerais ajouté 250... J'aimerais que ce chiffre s'additionne...

J'ai tout essayé avec les formules... Rien ne va... Donc, je crois que ça prendrait un code VBA.... Pouvez-vous m'aider... Je vous envoie mon fichier en pièce jointe... MERCI!!!

 

Pièces jointes

• Contrôle de budget Miguel.xlsx

  13.7 KB · Affichages: 43
• Contrôle de budget Miguel.xlsx

  13.7 KB · Affichages: 37
• Contrôle de budget Miguel.xlsx

  13.7 KB · Affichages: 36

Vote positif 0 Vote négatif