ETIRER formule VBA

Résolu/Fermé

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 - 18 oct. 2015 à 17:35
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 - 19 oct. 2015 à 16:51

Bonjour
J'ai une formule VBA que je voudrais appliquer jusqu'à la derniére ligne non vide de la colonne A.



Sub Test()

  With Sheets("nestor")
    If .Range("a2") = "toto" Or .Range("a2") = "tata" Then
      .Range("e2").Value = Range("d2").Value
    Else
      .Range("e2").Value = ""
    End If
  End With
End Sub

MERCI de votre aide

A voir également:

ETIRER formule VBA
Formule excel - Guide
Formule si et - Guide
Formule moyenne excel - Guide
Formule excel pour additionner plusieurs cellules - Guide
Mise en forme conditionnelle formule si - Guide

6 réponses

Réponse 1 / 6

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
18 oct. 2015 à 18:08

Bonjour,

Sub Test()
Dim DerLigA As Long, LigA As Long
    With Sheets("nestor")
        DerLigA = .Range("A" & Rows.Count).End(xlUp).Row
        For LigA = 2 To DerLigA
            If .Cells(LigA, "A") = "toto" Or .Cells(LigA, "A") = "tata" Then
                .Cells(LigA, "E").Value = .Cells(LigA, "D").Value
            Else
                 .Cells(LigA, "E").Value = ""
            End If
        Next LigA
    End With
End Sub

A+

Réponse 2 / 6

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
18 oct. 2015 à 18:41

UN GRAND MERCI Gyrus.

Dans la meme foulée peux tu m'inspirer pour tranformer ce code en VBA sur toute la colonne F

F2=SI($E2="TOTO";(JOURSEM($B2;2));"")

Bien à toi

Réponse 3 / 6

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
18 oct. 2015 à 18:58

Dans la même veine :

Sub Test()
Dim DerLigE As Long, LigE As Long
    With Sheets("nestor")
        DerLigE = .Range("E" & Rows.Count).End(xlUp).Row
        .Range("F2", .Range("F" & DerLigE)).FormulaR1C1 = "=IF(RC5=""TOTO"",(WEEKDAY(RC2,2)),"""")"
    End With
End Sub

A+

Réponse 4 / 6

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
18 oct. 2015 à 19:16

YES!!!!

Par contre

la forrmule s'incrémente jusqu'à la derniére cellule occupée de la colonne E (BIEN)

et du coup les cellules qui ne valident pas la condition IF ne sont plus vides.

Yaurait il moyen de les laisser vides?

Bien à toi

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
18 oct. 2015 à 20:08

Sub Test()
Dim DerLigE As Long
Dim Cel As Range
    With Sheets("nestor")
        DerLigE = .Range("E" & Rows.Count).End(xlUp).Row
        For Each Cel In .Range("E2:E" & DerLigE)
            If Cel.Value = "TOTO" Then
                Cel.Offset(0, 1) = Weekday(Cel.Offset(0, -3).Value, 2)
            Else
                Cel.Offset(0, 1) = ""
            End If
        Next Cel
    End With
End Sub

A+

Réponse 6 / 6

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
19 oct. 2015 à 16:51

Tout simplement !!! MERCI et MERCI

Discussions similaires

exo pix

Formule Excel : "SI" une cellule contient un mot, alors ?

je veut créer des codes

"L'indice n'appartient à la sélection" + VBA

Discussions similaires

Newsletters