Bonjour,
J'ai essayé plusieurs essais selon les discussions trouvées, mais ça bloque.

Je veux vérifier s'il y a une valeur dans F2, si oui je veux mettre "K623" dans la cellule G2, sinon je veux aller au champs suivant et ainsi de suite

Donc, je veux ajouter une colonne avec le champs "K623", pour toutes les lignes ou il y a des données dans mon tableau. Peut-être je peux éviter la formule if...

Avec la macro générique, je réussi à réaliser la formule mais pas d'aller à la ligne suivante.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]=0,""K623 "","" "")"

Avec les essais selon le codage suivant (celui, qui semblait ressembler le plus à ce que je cherches) je n'y arrive pas. Je pense ne pas utiliser correctement le next (ou j'ai trop simplifié le codage), mais ca ne fonctionne pas du tout...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Test()
Dim CelTest As Range
Dim StrFeuil As String
Dim IntLigne As Integer
 
With Sheets("started_no_fees")
 
    For Each CelTest In .Range(.Range("A1"), .Cells(Rows.Count, "A").End(xlUp))
 
        StrFeuil = CelTest.Offset(0, 6).Value
        If StrFeuil <> "" Then
 
            Cellule.[B7].Value = "k623" 'entrer K623 en G2
 
            Else
        Next
End If
 
End With
End Sub
Merci beaucoup, toute aide sera la bienvenue.