O est différent de rien qui est vide; mais la formule, elle, n'est pas rien ?

Version imprimable

16/06/2017, 22h45
Polygos

O est différent de rien qui est vide; mais la formule, elle, n'est pas rien ?

Bonsoir
je rencontre un doute sur le fonctionnement de mon test de boucle If cells(i,j) >= 1.

C'est idiot mais j'ai un doute; dans la cellule il y a une formule qui donne un nombre entier ici
tester sur la valeur de la cellule >0 (ou >=1) peut il être réalisé alors que le contenu peut être soit Rien (pas0, rien) ou une valeur entière ?

Je constate que ce n'est pas la valeur de la cellule qui est prise en compte mais le contenu, en l’occurrence une formule, donc elle n'est jamais vide.

Cells(i,j) est défini as long.

Votre avis ? je crois que je perds les bases...
:oops:
16/06/2017, 22h54
Invité

Il faut faire un teste dans ta formule!

Code:

=si("" & celle="";"";taformule)

Ainsi en vba tu peux tester ""
17/06/2017, 23h29
Polygos

Bonsoir
j'avoue que je ne comprends pas bien où ça se place

par rapport à

Code:

if cells (i,j) >= 0 then..maformule

ce qu ej eveux c'est m'assurer que ce test ne détecte bien que les cellules dont le contenu numérique >= 1 soient prises en compte et sinon, ignorées.

où places-tu =si("" & celle="";"";taformule) alors ?

merci de ta lumière, je patauge un peu
18/06/2017, 09h04
Philippe Tulliez

Bonjour,
Je ne comprends rien à tes explications

Citation:

je rencontre un doute sur le fonctionnement de mon test de boucle If cells(i,j) >= 1

Si tu publiais le code qui te pose un problème ce serait certainement plus simple.

boucle qui boucle pas

Je deviens fou...vosu savez ce que c'est quand vous faites une grosse C.... sans vous en apercevoir.
C'est à ça que servent les yeux externes:

J'ai un wb1 duquel je veux copier ligne à ligne les valeurs de certaines cellules répondant à une condition dans un second wb2. Une extraction en somme, pour certains articles qui respectent cette condition.

les feuilles ws1 (de wb1) et ws2 (de wb2) sont également définies.

La condition est donnée pour chaque cellule colonne 121 de wb1 (qui est elle même une copie de la valeur de la 122 pour ne pas avoir de pollution par les formules de la 122):
Code:

1 2 3 4 5 6 7 8 9 wb1.activate 'PL et DL sont les premières et dernières lignes concernées ' copie des valeurs de colonne 122 dans 121 dès lors qu'elle n'est pas vide For i = PL To DL If Cells(i, 122) <> 0 Then Cells(i, 121) = Cells(i, 122) Else End If Next i
Ensuite je veux boucler et copier les cellules de certaines colonnes (1, et 9) ide wb1 qui respectent la condition dans un autre fichier wb2 en A, B et C
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 For i = PL To DL 'de wb1 donc If ws1.Cells(i, 121) <> "" Then 'Colonne A = 1 "item_sku" ws2.Cells(j, 1) = ws1.Cells(i, 1) 'Colonne B = 2 "Type ID produit" ws2.Cells(j, 2) = "EAN" 'Colonne C = 3 "External" ws2.Cells(j, 3) = ws1.Cells(i, 9) j=j+1 Else End if Next i
Là, j'ai deux problèmes:
1 - la boucle ne fonctionne pas, je récupère toutes les lignes et pas seulement celles pour lesquelles la condition cellule 121 non vide (ce sont des entiers)
2- je voudrais respecter le format de la cellule d'arrivée (wb2 est déja formaté, en particulier en séparateur us pour les chiffres avec un . et non une virgule et pas de notation exposant);
j'ai essayé ws2.cells(j,3)=ws1.cells(i,9).value sans succès
Je ne me vois pas passer par un copy paste special...

Tout ça doit être évident mais je ne vois pas tellement c'est simple !!

Merci de votre regard !
:oops:

18/06/2017, 20h58
Philippe Tulliez

Bonjour,

Citation:

J'ai un wb1 duquel je veux copier ligne à ligne les valeurs de certaines cellules répondant à une condition dans un second wb2. Une extraction en somme, pour certains articles qui respectent cette condition.

En résumé, tu as une liste de données source contenant des lignes et colonnes dont tu veux exporter certaines lignes répondant à des critères.
Intéresse toi au filtres avancés d'excel (méthode AdvancedFilter de l'objet Range)
A lire Les filtres avancés ou élaborés dans Excel et voir cette discussion
19/06/2017, 11h06
paul_thms

As-tu essayé cela ?

Code:

Cells(i,j).Value

là c'est la valeur de la cellule (quand tu cliques dessus ce qui apparait dans le cadre en haut)

Ou ceci ?

Code:

Cells(i,j).Text

là c'est le texte de la cellule, ce que tu vois sans cliquer dessus.
20/06/2017, 10h18
Polygos

Oui, cela ne fonctionne pas.
j'essaie d'exploiter les infos qui m'ont été données mais j'ai du mal à adapter..
20/06/2017, 11h32
Philippe Tulliez

Bonjour,
Le test ci-dessous est correct

Code:

If Cells(i, 122).Value <> 0 Then

Si ton test ne fonctionne pas c'est qu'il y a un caractère visible ou invisible dans les cellules de la colonne 122
As-tu essayé simplement de placer la formule dans les cellules de la colonne 121 ?
20/06/2017, 13h28
Invité

tu nous fais la multiplication des petits pain?

https://www.developpez.net/forums/d1...s/#post9386379
20/06/2017, 20h59
Polygos

Citation:

Envoyé par dysorthographie

tu nous fais la multiplication des petits pain?

https://www.developpez.net/forums/d1...s/#post9386379

oui, ça devient compliqué parce que les éléments sont imbriqués;je vais mettre de l'ordre; pour le temps de traitement, l'astuce est bien de supprimer les calculs automatique et les remettre à la fermeture du code.
Par contre, test sur cellule non vide et copie colonne à colonne pas encore résolus..:aie:

bonjour,

Citation:

J'ai un wb1 duquel je veux copier ligne à ligne les valeurs de certaines cellules répondant à une condition dans un second wb2. Une extraction en somme, pour certains articles qui respectent cette condition.
Code:

1 2 3 4 5 6 7 8 9 wb1.activate 'PL et DL sont les premières et dernières lignes concernées ' copie des valeurs de colonne 122 dans 121 dès lors qu'elle n'est pas vide For i = PL To DL If Cells(i, 122) <> 0 Then Cells(i, 121) = Cells(i, 122) Else End If Next i
Citation:

les feuilles ws1 (de wb1) et ws2 (de wb2) sont également définies.

pour info :

Code:

Workbooks("wb1").Worksheets("Ws1").Activate

idem,...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 For i = PL To DL 'de wb1 donc If ws1.Cells(i, 121) <> "" Then 'Colonne A = 1 "item_sku" ws2.Cells(j, 1) = ws1.Cells(i, 1) 'Colonne B = 2 "Type ID produit" ws2.Cells(j, 2) = "EAN" 'Colonne C = 3 "External" ws2.Cells(j, 3) = ws1.Cells(i, 9) j=j+1 Else End if Next i
pour info :

Citation:

Code:

ws2.Cells(j, 3) = ws1.Cells(i, 9)

Code:

Workbooks("wb2").Worksheets("Ws2").Cells(j, 3) = Workbooks("wb1").Worksheets("Ws1").Cells(i, 9)

@+JP

Ici, bloque dès

Code:

Workbook("wb1").Worksheets("Ws1").Activate

Je ne sais pas pourquoi.
je me suis permis de corriger workbooks au lieu de workbook, mais non boggage à ce pas du programme

voici mes déclarations:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
    Dim DL As Long
    Dim PL As Long
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
 
    Set wb1 = Workbooks("GRANDE BASE 1106CF1206.xlsm")
    Set ws1 = wb1.Worksheets("Epicerie")
 
    PL = 8
    DL = Range("F" & Rows.Count).End(xlUp).Row
    Set wb2 = Workbooks.Open("C:\Users\Christophe\Dropbox\Partage documents export\Partenaires\INTERNET\MARKET PLACE\Amazon\Fichier Export\Flat.File.xlsm")
    Set ws2 = wb2.Worksheets("Template")
 
ws1.Activate (que j'ai remplacé ensuite par ton conseil mjpmjp: Workbooks("wb1").Worksheets("Ws1").Activate; ça ne boggait pas avant mais la boucle ne fonctionnait pas sur les valeurs de la colonne 122)
j=4
For i = PL To DL
 
        If ws1.Cells(i, 122).Value >= 1 Then
 
 
        'Colonne A = 1 "item_sku"
            ws2.Cells(j, 1) = ws1.Cells(i, 1)
 
        'Colonne B = 2 "Type ID produit"
            ws2.Cells(j, 2) = "EAN"
 
etc..

23/06/2017, 11h38
mjpmjp

bonjour,

Citation:

je me suis permis de corriger workbooks au lieu de workbook

merci pour cette correction ;) , j'ai corrigé le post..
@+JP
23/06/2017, 11h41
mjpmjp

bonjour,
tu as un wb1 avec ws1
tu as un wb2 avec ws2

ton code est dans quel fichier ?

@+JP

bonjour,

Code:

1
2
3
 
    Set wb1 = Workbooks("GRANDE BASE 1106CF1206.xlsm")
    Set ws1 = wb1.Worksheets("Epicerie")

normalement

Code:

ws1 = Workbooks("GRANDE BASE 1106CF1206.xlsm").Worksheets("Epicerie")

donc

Code:

ws1.Activate

est correct,...çà fonctionne ?

Citation:

Workbooks("wb1").Worksheets("Ws1").Activate

c'était un exemple pour préciser le "chemin" qui était absent dans ce code

Code:

1
2
3
4
5
6
7
8
9
10
 
wb1.activate
'PL et DL sont les premières et dernières lignes concernées
' copie des valeurs de colonne 122 dans 121 dès lors qu'elle n'est pas vide
   For i = PL To DL
        If Cells(i, 122) <> 0 Then
        Cells(i, 121) = Cells(i, 122)
        Else
        End If
   Next i

mais présent dans celui ci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
For i = PL To DL 'de wb1 donc
 
        If ws1.Cells(i, 121) <> "" Then
 
 
        'Colonne A = 1 "item_sku"
            ws2.Cells(j, 1) = ws1.Cells(i, 1)
 
        'Colonne B = 2 "Type ID produit"
            ws2.Cells(j, 2) = "EAN"
 
        'Colonne C = 3 "External"
            ws2.Cells(j, 3) = ws1.Cells(i, 9)
        j=j+1
        Else
        End if
 
Next i

tu as corrigé le code 1 ?

@+JP

24/06/2017, 18h13
Polygos

Bonjour jmpjmp, oui, les chemins étaient définis plus haut dans le code en fait.
Thx