XL 2010 Associer ligne avec nom de la cellule

CISCO

XLDnaute Barbatruc

• 14 Mars 2017

• #2

Bonjour

Et d'où vient l'information "lanterneau" dans ton exemple ?

@ plus

 

Vote positif 0 Vote négatif

M

MelissaJoubert

XLDnaute Junior

• 14 Mars 2017

• #3

C'est une information que je met a la main ? Pourquoi cette question ?

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 14 Mars 2017

• #4

Bonjour

Dans ce cas, pourrais-tu indiquer sur Feuil2 les informations provenant automatiquement de Feuil4, en rouge par ex ?

@ plus

 

Vote positif 0 Vote négatif

M

MelissaJoubert

XLDnaute Junior

• 14 Mars 2017

• #5

CISCO à dit:

Dans ce cas, pourrais-tu indiquer sur Feuil2 les informations provenant automatiquement de Feuil4, en rouge par ex ?

Cliquez pour agrandir...

Par exemple pour le premier cadre ça serait les cellules suivantes :
- F21 pour le nom du projet
- G21 pour la ville
- H21 pour la surface
- I21 pour sho sha
- K21 pour nombre
- L21 pour typologie
- M21 pour la date devis
- R21 pour sous traitant

Voila 😀

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 14 Mars 2017

• #6

Rebonjour

Et combien de fois faut-il répéter les petits tableaux de Feuil2 ? Où trouve t'on cette information ? Est-ce le 20 de Feuil4!F3 pour 2017 ?

@ plus

 

Vote positif 0 Vote négatif

M

MelissaJoubert

XLDnaute Junior

• 14 Mars 2017

• #7

En faite le tableau de la feuil2 peut etre répété autant de fois que je veux, je ne sais pas combien il va en avoir.


Private Sub Worksheet_Change(ByVal Target As Range)
'au changement d'un numéro de tableau en colonne D,
'cherche les infos correspondantes dans la feuille "Données", pour les recopier

Application.EnableEvents = False

If Target.Column = 4 And Target.Interior.ColorIndex = 2 Then 'colonne D sur une cellule coloré en blanc
'on cherche la position du tableau dans la feuille données
With Sheets("feuil4").Range("A:A")
'MsgBox Target.Item(1)
Set c = .Find(Target.Item(1)) ', LookIn:=xlValues, XlLookAt:=xlWhole)
On Error Resume Next
If Not c Is Nothing Then
If c.Value <> "" Then
'recopie du tableau
.Range("B" & c.Row & ":F" & c.Row + 4).Copy Destination:=Target.Offset(0, 1) 'va comprendre pourquoi il faut mettre B et F pour copier CG......?????
Else
Target.Offset(0, 1).Resize(4, 5).ClearContents 'si numéro pas trouvé: on efface
End If
Else
Target.Offset(0, 1).Resize(4, 5).ClearContents 'si numéro pas trouvé: on efface
End If
End With
End If

Application.EnableEvents = True
End Sub


J'avais fais ce code mais le problème c'est que la je copie colle le tableau comme il est sauf que dans mon cas la le tableau n'est pas de la même forme donc il faudrait selectionner par colonne ou je ne sais pas


Merci pour ton aide, j'espere que tu comprend mon problème 🙂

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 14 Mars 2017

• #8

Bonjour

Je te demandais tout ça car on doit pouvoir faire ça tout simplement avec des formules matricielles, donc à valider avec Ctrl+maj+entrer.

Pour le nom du projet

Code:

INDEX(Feuil4!B$1:B$4;MIN(SI(Feuil4!A$3:A$4=Feuil2!D21;LIGNE($3:$4))))

Pour le nom de la ville

Code:

INDEX(Feuil4!C$1:C$4;MIN(SI(Feuil4!A$3:A$4=Feuil2!D21;LIGNE($3:$4))))

et ainsi de suite, en mettant à la place des $4 le n° de la dernière ligne utilisée sur Feuil4, par exemple

Code:

INDEX(Feuil4!C$1:C$100;MIN(SI(Feuil4!A$3:A$100=Feuil2!D21;LIGNE($3:$100))))

Une fois fait le premier petit tableau, il suffit de copier coller autant de fois que désiré.

Par macro, cela serait encore plus simple pour l'utilisateur final, mais vu mon niveau en VBA...

@ plus

 

Dernière édition: 14 Mars 2017

Vote positif 0 Vote négatif

M

MelissaJoubert

XLDnaute Junior

• 14 Mars 2017

• #9

D'accord merci pour ton aide 😀

Mais les codes que tu m'a donné je les ecris où ?

 

Vote positif 0 Vote négatif

M

MelissaJoubert

XLDnaute Junior

• 14 Mars 2017

• #10

Et si je rajoute des lignes dans ma feuil4 , ça fonctionne toujours ?

Merci 🙂

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 14 Mars 2017

• #11

Bonsoir

Bien sûr que cela fonctionne, tant que tu mets à la place des $4 un nombre > ou = au n° de la dernière ligne de Feuil4. Si besoin est, on peut utiliser des plages dynamiques, dont la hauteur s'adapte automatiquement au nombre de lignes de ta Feuil4.

@ plus

 

Vote positif 0 Vote négatif

M

MelissaJoubert

XLDnaute Junior

• 15 Mars 2017

• #12

Ah oui ça m'interesse, tu sais faire ?
Et les formules que tu m'a envoyé je les met où ? ahah désolé je suis pas très doué sur les formules excel.

Merci pour ton aide 🙂

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 15 Mars 2017

• #13

Bonsoir

Regardes dans la pièce jointe, les formules matricielles dans Feuil2!F21 et dans Feuil2!G21 (à valider avec les 3 touches Ctrl+maj+entrer, ce qui fait apparaitre les accolades {} dans la barre de formule), ainsi que dans le gestionnaire de noms, les plages dynamiques définies avec les noms nomprojet, année et ville.
Pour bien comprendre à quoi correspond ces plages, sélectionnes en une dans le gestionnaire de noms. Cliques dans le bas de la fenêtre "Gestionnaire de noms" sur la formule la définissant, en dessous de "Fait référence à". Excel mettra en évidence la plage correspondante en l'entourant avec des pontillés. Ici, il ni y a que 4 lignes, mais s'il y en a plus, Excel sélectionnera automatiquement l'ensemble.


Pour en définir d'autres, utilises le même type de formule en utilisant EQUIV("zz" si la colonne contient du texte, EQUIV(9^9... si elle contient des nombres.

A toi de faire de même dans H21, I21, K21 et ainsi de suite.

@ plus

P.S : J'ai défusionné B1 et D1 (les cellules fusionnées sont souvent source de pb si on les utilise dans des formules, donc, il faut mieux les éviter), et j'ai centré sur plusieurs colonnes (dans la fenêtre format- --> Alignement) les noms projet et surface.

 

Pièces jointes

• test6 (1).xlsm

  87.5 KB · Affichages: 27

Dernière édition: 16 Mars 2017

Vote positif 0 Vote négatif

M

MelissaJoubert

XLDnaute Junior

• 16 Mars 2017

• #14

Merci pour ton aide j'ai bien compris 😀

 

Vote positif 0 Vote négatif