Incrémenté un tableau à l'aide d'une formule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

MAZETTE

XLDnaute Occasionnel
Bonjour à tous,

Je coince sur un petit problème qui sera sans doute d'une facilité pour vous ...mais bon...j'ai beau cherché...moi pas trouvé

Je souhaite alimenter dans un tableau de CA Hebdo (plage O4:055) des Heures se trouvant dans 3 autres tableaux(Semaine Haute,Basse,Ete)



Si semaine 1 appartient au premier tableau donc en U4:U20 alors les Heures se trouvant dans la cellule Y22

Si semaine 1 appartient au second tableau donc en AA4:AA18 alors les Heures se trouvant dans la cellule AE20

Si semaine 1 appartient au troisieme tableau donc en AG4:G31 alors les heures se trouvant dans AK33

Et ainsi de suite pour les 52 semaines

Le plus simple est sans doute le fichier exemple...

Merci à vous
 
Re : Incrémenté un tableau à l'aide d'une formule

Bonjour,

Voici une proposition:

Code:
Sub test()
Dim Semaine As Range, Cell As Range, Col As Integer
For Each Cell In Range("C4:C55")
  Set Semaine = Union([U4:U20], [AA4:AA18], [AG4:AG31]).Find(Cell.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Not Semaine Is Nothing Then
    Col = Semaine.Column
    Select Case Col
    Case 21: Cell.Offset(0, 12).Value = [Y22].Value
    Case 27: Cell.Offset(0, 12).Value = [AE20].Value
    Case 33: Cell.Offset(0, 12).Value = [AK33].Value
    End Select
  End If
Next
End Sub
 
Re : Incrémenté un tableau à l'aide d'une formule

Re skoobi et salut Tibo,

Merci tout de meme skoobi je coserve le code qui pourra sans doute m'aider sur un autre projet...Merci encore

Tibo, j'ai essayé ta formule c'est tout à fait ca merci et félicitation.

Je vous souhaite à tous les eux une bonne soirée

Merci encore
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
Réponses
5
Affichages
1 K
Membre supprimé 341069
M
K
Réponses
4
Affichages
1 K
Littledave
L
H
Réponses
2
Affichages
9 K
Hendrixfromsunsetland
H
P
Réponses
1
Affichages
1 K
L
Réponses
1
Affichages
2 K
Retour