ETIRER formule VBA

Résolu

julia Namor Messages postés 524 Date d'inscription Statut Membre Dernière intervention -
julia Namor Messages postés 524 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

A voir également:

ETIRER formule VBA
Formule si et - Guide
Formule moyenne excel plusieurs colonnes - Guide
Formule mathématique - Télécharger - Études & Formations
Formule somme excel colonne - Guide
Excel mise en forme conditionnelle formule - Guide

6 réponses

Réponse 1 / 6

Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention 526

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 Statut Membre Dernière intervention 33

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 Statut Membre Dernière intervention 526

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 Statut Membre Dernière intervention 33

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 Statut Membre Dernière intervention 526

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 Statut Membre Dernière intervention 33

Tout simplement !!! MERCI et MERCI

Discussions similaires

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

Décalage de formule

Erreur d'exécution 13 Incompatibilité de type

Votre réponse

Discussions similaires