Sujet Précédent Sujet Suivant

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

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+
0
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
0
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+
0
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
0

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+
0
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
0

Discussions similaires

je veut créer des codes
jonkiller -
Nhhi -

20 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses