Discussion :

[feiisha]

Hello tous le monde,


Je m'obstine depuis vendredi à créer un code vba et je n'y arrive pas...
Voilà ce que je souhaites faire :
Afficher dans la cellule B4 de la feuille "boutique JO" le contenu de la cellule D2 de la feuille "Data" selon 3 critères :
- le contenu de la cellule A2 = "Americas" de la feuille Data
- le contenu de la cellule E2 = "Internal" de la feuille Data
- le contenu de la cellule I2 = "JO1" de la feuille Data
Si cela n'est pas vérifié, passez à la cellule suivante afin d'avoir les résultats les uns à la suite des autres.

En fait je pensais réussir avec une fonction si imbriquée mais cela ne suffit pas.


Merci d'avance pour votre aide.



P.S: Pour des raisons de confidentialité je suis désolée mais je ne peux transmettre aucun fichier.

[Thautheme]

Bonjour Feiisha, bonjour le forum,

Peut-être comme ça :

Code :

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

1
2
3
4
5
Sub Macro1()
With Sheets("Data")
    If .Range("A2").Value = "Americas" And .Range("E2").Value = "Internal" And .Range("I2").Value = "JO1" Then Sheets("boutique JO").Range("B4").Value = .Range("D2").Value
End With
End Sub

[Daniel.C]

Bonjour,

En fait je pensais réussir avec une fonction si imbriquée mais cela ne suffit pas.

Code :

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

=SI(ET(data!A2="Americas";data!E2="Internal";data!I2="JO1");data!D2;"")

en B4 de la feuille "boutique JO", à recopier vers le bas.

[keygen08]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim data As Worksheet
Dim boutique As Worksheet
Set data = ThisWorkbook.Sheets("Data")
Set boutique = ThisWorkbook.Sheets("boutique JO")
 
For r = 2 To data.Range("A" & Rows.Count).End(xlUp).Row
    If data.Range("a" & r) = "Americas" And data.Range("e" & r) = "Internal" And data.Range("i" & r) = "JO1" Then
    boutique.Range("b" & 3 + r) = data.Range("d" & r)
    End If
Next r

Passer par des filtres est peut etre également une voie de recherche

[feiisha]

Bonjour,


Merci à vous tous, je vais tester et je vous dirai
Le problème avec les filtres c'est que je ne peux pas l'appliquer sur l'ensemble de mes colonnes :/

Je vous envoies le fichier finalement

[keygen08]

Aucune ligne ne correspond aux critères spécifié donc pages blanches = normal
et si le resultat escompté est en page boutique JO, l'intitulé du problème est faux.

[keygen08]

En fonction du resultat apercu en Boutique JO, je propose ceci coller dans un bouton activeX

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
Private Sub CommandButton1_Click()
Dim data As Worksheet
Dim boutique As Worksheet
Dim cell As Range
Dim Pays As Integer
Dim Jo As Integer
Set data = ThisWorkbook.Sheets("Data")
Set boutique = ThisWorkbook.Sheets("boutique JO")
On Error Resume Next
For Each cell In data.Range("a2:a" & data.Range("A" & Rows.Count).End(xlUp).Row)
 Pays = boutique.Rows(2).Find(cell).Column
    If Pays <> 0 Then
        With boutique
        Jo = .Range(boutique.Cells(3, Pays), .Cells(3, .Cells(3, Pays).End(xlToRight).Column)).Find(cell.Offset(0, 8).Value, , xlValues).Column
            If Jo <> 0 Then
             'ou ceci.Cells(.Cells(65000, Jo).End(xlUp).Row + 1, Jo).Value = cell.Offset(0, 3).Value
              .Cells(cell.Row + 3, Jo).Value = cell.Offset(0, 3).Value
             End If
        End With
    End If
Pays = 0
Jo = 0
Next cell
 
End Sub