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

**Polygos** · 16/06/2017, 22h45

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

Invité · 16/06/2017, 22h54

Il faut faire un teste dans ta formule!

Code formule excel :

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

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

Ainsi en vba tu peux tester ""

**Polygos** · 17/06/2017, 23h29

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

par rapport à

Code :

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

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

**Philippe Tulliez** · 18/06/2017, 09h04

Bonjour,
Je ne comprends rien à tes explications

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.

**Polygos** · 18/06/2017, 10h59

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 :

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

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 :

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

**Philippe Tulliez** · 18/06/2017, 20h58

Bonjour,

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

**paul_thms** · 19/06/2017, 11h06

As-tu essayé cela ?

Code :

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

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 :

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

Cells(i,j).Text

là c'est le texte de la cellule, ce que tu vois sans cliquer dessus.

**Polygos** · 20/06/2017, 10h18

Oui, cela ne fonctionne pas.
j'essaie d'exploiter les infos qui m'ont été données mais j'ai du mal à adapter..

**Philippe Tulliez** · 20/06/2017, 11h32

Bonjour,
Le test ci-dessous est correct

Code :

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

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 ?

Invité · 20/06/2017, 13h28

tu nous fais la multiplication des petits pain?

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

**Polygos** · 20/06/2017, 20h59

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

**mjpmjp** · 21/06/2017, 21h55

bonjour,

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 :

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

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

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

pour info :

Code :

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

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

idem,...

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

Code :

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

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

Code :

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

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

@+JP

**Polygos** · 23/06/2017, 10h05

Ici, bloque dès

Code :

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

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 :

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

**mjpmjp** · 23/06/2017, 11h38

bonjour,

je me suis permis de corriger workbooks au lieu de workbook

merci pour cette correction

, j'ai corrigé le post..
@+JP

**mjpmjp** · 23/06/2017, 11h41

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

ton code est dans quel fichier ?

@+JP

**mjpmjp** · 23/06/2017, 11h55

bonjour,

Code :

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

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

normalement

Code :

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

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

donc

Code :

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

ws1.Activate

est correct,...çà fonctionne ?

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

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

Code :

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

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 :

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

**Polygos** · 24/06/2017, 18h13

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

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

Macros et VBA Excel

Discussions similaires

Partager

Partager