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.

[fring]

Bonjour Alain,

fring s'obstine à utiliser une manière obsolète de déclarer les variables.
Peut-être par paresse?

euuh oui si on veut, perso je préfère voir dans mon code

Code :

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

Dim i%, j%, k%

que

Code :

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

Dim MaDerniereLigne As Integer, MaDernierColonne As Integer, MaDerniereFeuille As Integer

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

Je ne savais pas que c'était obsolète et déconseillé, pour quelle(s) raison(s) ?
Il n'y a pourtant pas très longtemps que j'ai découvert cette manière de déclarer les variables et j'ai découvert ça pas loin d'ici : http://gilmir.developpez.com/tutoriels-vb6/tutoriel26/
D'accord, le tuto a été rédigé en 2003 mais mis à jour en 2008

Pour une fois que Bilou conserve quelque chose et permet d'utiliser une "vieille" méthode on va pas se plaindre

Mais bon...je suis arrivé à m'adapter pour ne plus utiliser A65535 (quoique dans 99,999% des cas cela reste amplement suffisant) mais d'utiliser plutot Rows.Count, j'arriverai bien à m'adapter pour la déclaration des variables si il y a un risque de disfonctionnement en les déclarant via leur symbole.

Je suis toute ouie pour les critiques, remarques, conseils qui me permettent de faire avancer le schmilblick

[Nad777]

Merci pour les explications,

Honnêtement je ne savais pas que ma question susciterai autant de réaction, mais je viens de comprendre les synomymes. J'avais de la difficulté à comprendre la définition des variables, car je voyais le texte complet ou les variables (i, j). Finalement, je viens de réaliser que c'est la même chose (même si une méthode serait préférable à utiliser lors du codage). Donc moi-même je vais pouvoir effectuer les corrections sur mes codages et comprendre davantage lors de mes futures recherches.

C'est agréable l'apprentissage du VBA .

[AlainTech]

Je n'aurai pas d'explication quant à la raison pour laquelle Microsoft déconseille cet usage mais voici un endroit où c'est écrit:
http://support.microsoft.com/kb/110264
Voir dans la rubrique "Affectation de noms des variables et des routines", juste sous le sous-titre "Préfixes:"

Personnellement, je trouve que la page entière vaut la peine d'être lue (et appliquée).