Discussion :

[Nad777]

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.

[fring]

Bonjour,

les champs suivant sont F3, F4, F5, etc... ?

[Nad777]

oui exactement,
si en F3 il y a des données je veux kc623 dans G3
si en F4 il y a des données je veux kc623 dans G4 etc...

[fring]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
Dim i%
For i = 2 To Cells(Rows.Count, 6).End(xlUp).Row
If Cells(i, 6) <> "" Then Cells(i, 7) = "K623"
Next
End Sub

[Nad777]

Youppi,

C'est exactement ce que je voulais faire et ça fonctionne à la perfection.

J'aimerais bien comprendre tout le codage pour améliorer mes connaissances. Pourquoi as-tu utilisé le "i%"?

Merci beaucoup Fring

[AlainTech]

Pourquoi as-tu utilisé le "i%"?

fring s'obstine à utiliser une manière obsolète de déclarer les variables.

Peut-être par paresse?
Il est, en effet, plus court de taper

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim i%

que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim i As Integer

Cette syntaxe est conservée par Microsoft par souci de compatibilité mais elle est déconseillée.