Formule SI sur nombre de lignes variables

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:

---

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:

---

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.

Bonjour,

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

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...

Code:

---

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

---

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 :D

Citation:

---

Envoyé par Nad777

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:

---

Dim i%

---

que

Code:

---

Dim i As Integer

---

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

Bonjour Alain,

Citation:

---

Envoyé par AlainTech

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:

---

Dim i%, j%, k%

---

que

Code:

---

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

---

Citation:

---

Envoyé par AlainTech

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 :mouarf:

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 ;)

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 ;).

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).