Discussion :

[oijkn]

Bonjour à tous,

Comme une image vos mieux que des mots, je vous mets une copie d''écran de mon problème



Alors voici le cheminement :

1) Je sasie des données dans les colonnes "Ref", "Désignation" et "Date"
2) En colonne E et F il y a des formules EQUIV qui calcul le numéro de colonne où se trouve la date (VERT) et le numéro de ligne où se trouve la quantité (JAUNE).
3) Une macro vba recopie les quantités en colonne C en dessous des bonnes dates dans la partie droite "Planning". (en utilisant les coordonées colonne/ligne avec les infos en colonne E et F).
4) Une autre macro vba insert automatiquement le nombre de désignation en colonne B (BLEU) + le mot "BBB" entre chaque mot "AAA1", "AAA2" et "AAA3".

Bon j'espère que je ne vous ai pas trop perdu ....
....Mon problème commence maintenant.

En effet, je souhaiterai par une macro vba ou autre moyen, de localiser les cellules en ROUGE . Pour ainsi coller des données copier depuis une autre feuille.

En remerciant par avance les experts qui pourront m'aider.

Ps: petite erreur avec les pièces jointes ==> ne pas tenir compte de la deuxième image en fin de post

[quentinvba]

Bonjour oijkn,

Alors je ne suis pas un grand expert mais je pense avoir saisi ce que tu souhaites.

Pour les localiser j'utiliserai simplement (si ton onglet est "Feuille1") :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Localiser()
 
Dim cell As Object
For Each cell In Sheets("Feuille1").UsedRange
    If cell.Interior.ColorIndex = 3 Then
        ' Ici mettre les instructions pour coller tes données
    End If
Next
 
End Sub

[oijkn]

Merci pour ta réponse, mais je me suis peut être mal exprimé: en fait j'ai mis en rouge les cellules pour une meilleur compréhension. Dans ma feuille elles sont vides, et j'aimerai les localiser !

Wait and see....

[quentinvba]

Haha, je me disais aussi, c'était trop facile !

Pourquoi ne choisis-tu pas une cellule de départ que tu incrémenterais par une boucle For ?

[oijkn]

Parce que le nombre de cellule désignation (BLEU) est variable (dans l'exemple il y en à trois mais ça pourrait être 8), donc le nombre de cellule entre chaque "AAA" (VERT FONCE) est aussi variable. Donc je n'ai pas de case de départ ;(

[quentinvba]

D'accord je commence à mieux comprendre !

Il suffit par contre d'utiliser la cellule M10 comme cellule de départ, d'affecter une variable à ton nombre de désignations et d'effectuer les Offset en conséquences.

Je vais essayer de t'en coder une partie pour être plus clair !

Tiens tu peux essayer ça, testé et approuvé de mon côté !

Reste le problème du nombre de AAA que j'ai fixé à 3 car je savais pas comment est déterminé leur nombre, calcule les s'il est possible qu'il y en ait plus, ou explique moi d'où provient leur nombre !

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub Loca()
 
Dim NbDes, Lastligne, Repcol, Ofst, Nbaaa, compteur As Integer
 
'Repcol = repèrecolonne
 
'On Calcule le nombre de désignations
Lastligne = Range("B2").End(xlDown).Row
NbDes = Lastligne - 1
 
'Nbaaa = nombre de AAA, je n'étais pas sûr que tu en aies que 3
Nbaaa = 3
 
Set Debut = Cells(10, Range("E2").Value)
 
'Calcule le Nb de lignes à passer entre chaque case d'une même ligne
Ofst = NbDes * 2 + 1
 
'Initialise le compteur pour passer d'un repère colonne à l'autre
compteur = 2
 
' 1ère colonne
For i = 0 To Nbaaa - 1
Repcol = Range("E" & compteur).Value
    Debut.Offset(Ofst * i, 0).Select
    ' mettre ici instructions sur la case selectionnée
Next
 
compteur = compteur + 1
'2ème colonne
For i = 0 To Nbaaa - 1
Repcol = Range("E" & compteur).Value
    Set Debut2 = Cells(12, Repcol)
    Debut2.Offset(Ofst * i, 0).Select
    ' mettre ici instructions sur la case selectionnée
Next
 
compteur = compteur + 1
'3ème colonne
For i = 0 To Nbaaa - 1
Repcol = Range("E" & compteur).Value
    Set Debut3 = Cells(14, Repcol)
    Debut3.Offset(Ofst * i, 0).Select
    ' mettre ici instructions sur la case selectionnée
Next
 
'ETC
 
End Sub

[oijkn]

Youpi, j'ai trouvé la solution après une bonne journée d'essai ......
.... voilà ma solution (pour ceux que ça intéresse!!!).

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
Sub cherche()
 
Dim j As Integer
Dim derniereLigne As Integer
Dim k As Integer
 
derniereLigne = Worksheets("feuil1").Range("A1:A65536").End(xlDown).Row ' mettre le nom de la feuil et le range souhaité
k = 2 ' mettre le début du compteur sur la cellule souhaitée à la place de 2
 
For j = 1 To derniereLigne Step 2 ' mettre le début du compteur sur la cellule souhaitée à la place de 1
Set result = Cells(j + 1, 1).Find(What:="BBB", LookIn:=xlValues) ' mettre le texte recherché à la place de BBB
valeur = Cells(k, 5).Value 'mettre la colonne souhaité à la place de 1
Range(result, result).Select
Sheets("feuil2").Range("E6:M6").Copy Sheets("feuil1").Range(result, result).Offset(, valeur)
k = k + 1
 
Next j
 
End Sub