Mise en forme automatique

Bonjour,
Pour la pièce jointe... Un ZIP... moins de 50 Ko !
A bientôt !

Alors va pour un ZIP de 8Ko.

Mr White
:woohoo: [file name=exemple_20050228100322.zip size=6813]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20050228100322.zip[/file]

Bonjour

Regarde si cela te convient

Bonne journée

[file name=exemple_20050228101708.zip size=12803]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20050228101708.zip[/file]

Bonjour Pascal76,

Tu as l'air d'avoir bien compris mes envies.
Par contre moi je ne suis pas sûr de bien comprendre ce que tu m'as envoyé. Ou plutôt, je ne voit pas le caractère automatique de ta version. Il y a quelque chose que j'ai loupé? On a l'impression que t'as remplis les blancs toi même parceque quand je selectionne une autre cellule (ou ligne) rien ne change dans la trame...

Ou est la subtilité? C'est du VBA? Si c'est la cas, voilà la subtilité. Le problème est que je ne connais pas du tout ce langage.

En tt cas, merci de ta première réponse et de ta futur réponse.
Mr White
:woohoo:

Re

En fait quand tu cliques sur une ligne de ta feuille Bdd tes coordonnées se mettent automatiquement sur la feuille que j'ai renommé TRAME

Et en effet c'est du VBA

Re

Verifies bien que ton niveau de sécurité soit à Moyen (Outils>Macro>Sécurité cocher le niveau moyen) Ensuite tu ouvres le fichier et lorsquil te demande si tu veux activer les macros tu cliques sur activer

Bon courage

Ouuhh Nomdedieudenomdedieudenomdedieu,

Ca marche!!!!!!!C'est exactement ça!!!!Ca faisait je ne sais pas combien de temps que je cherchais à faire ça. Top cool!!!

Merci Pascal
Mr White
:woohoo:

Salut à tous,

Pascal76 m'a donné le code VBA suivant:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Maligne As Long


Maligne = Target.Row
If Range('A' & Maligne) <> '' Then
Sheets('Trame').Range('B1') = Range('A' & Maligne)
Sheets('Trame').Range('B2') = Range('B' & Maligne)
Sheets('Trame').Range('B3') = Range('C' & Maligne)
Sheets('Trame').Range('B4') = Range('D' & Maligne)
Sheets('Trame').Range('B5') = Range('E' & Maligne)
Sheets('Trame').Range('B6') = Range('F' & Maligne)
Sheets('Trame').Range('B7') = Range('G' & Maligne)
Sheets('Trame').Range('B8') = Range('H' & Maligne)
Sheets('Trame').Range('B9') = Range('I' & Maligne)
Sheets('Trame').Range('B10') = Range('J' & Maligne)
Sheets('Trame').Range('B11') = Range('K' & Maligne)
Sheets('Trame').Range('B12') = Range('L' & Maligne)
Sheets('Trame').Range('B13') = Range('M' & Maligne)
End If
End Sub

Je reviens dessus car mon niveau VBA est à zero et je n'arrive pas à appliquer le code à mon travail. Alors je me demandais si Pascal76 ou quelqu'un d'autre serait assez charitable pour me donner un coup de main à le comprendre.

Ce que je comprend de ce code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Je n'ai pas la moindre idée de ce qu ça signifie.

Dim Maligne As Long
Je pense que là on défini ce qu'est Maligne. Mais je ne vois pas précisement à quoi ça fait référance.

Maligne = Target.Row
pas d'idée. C'est hebreux?

If Range('A' & Maligne) <> '' Then
Si la cellule A et ?? sont différent de nul alors...
Sheets('Trame').Range('B1') = Range('A' & Maligne)
La cellule B1 de la feuille Trameprend la valeur de la colonne A et de...
Sheets('Trame').Range('B2') = Range('B' & Maligne)
Sheets('Trame').Range('B3') = Range('C' & Maligne)
Sheets('Trame').Range('B4') = Range('D' & Maligne)
Sheets('Trame').Range('B5') = Range('E' & Maligne)
Sheets('Trame').Range('B6') = Range('F' & Maligne)
Sheets('Trame').Range('B7') = Range('G' & Maligne)
Sheets('Trame').Range('B8') = Range('H' & Maligne)
Sheets('Trame').Range('B9') = Range('I' & Maligne)
Sheets('Trame').Range('B10') = Range('J' & Maligne)
Sheets('Trame').Range('B11') = Range('K' & Maligne)
Sheets('Trame').Range('B12') = Range('L' & Maligne)
Sheets('Trame').Range('B13') = Range('M' & Maligne)
Tous ça est la même chose
End If
Fin de si
End Sub
?? Fin de requête?

Comme vous pouvez le voir, j'ai un gros pb avec A & Maligne.

S'il vous plait, vous tous qui me lisez. Aider moi.Snif!Snif!
Mr White
:woohoo:

Bon je t'explique

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Ici c'est une procédure qui va se déclencer quand tu vas changer ta sélection

Dim Maligne As Long 'Déclaration d'une variable Maligne


Maligne = Target.Row 'ça c la ligne o&ugrave; tu viens de cliquer
If Range('A' & Maligne) <> '' Then 'Si la cellule de la colonne A de la ligne o&ugrave; tu viens de cliquer est vide cela ne sert à rien de continuer car tu n'as pas de nom d'entreprise

'Et ensuite je recopie dans les cellules de la feuille TRAME les coordonnées de lal ligne sur laquelle tu viens de cliquer
Sheets('Trame').Range('B1') = Range('A' & Maligne) 'Dans la cellule B1 de la feuille TRAME je mets ce qui il y a dans la colonne A de la ligne que tu viens de cliquer
Sheets('Trame').Range('B2') = Range('B' & Maligne)
Sheets('Trame').Range('B3') = Range('C' & Maligne)
Sheets('Trame').Range('B4') = Range('D' & Maligne)
Sheets('Trame').Range('B5') = Range('E' & Maligne)
Sheets('Trame').Range('B6') = Range('F' & Maligne)
Sheets('Trame').Range('B7') = Range('G' & Maligne)
Sheets('Trame').Range('B8') = Range('H' & Maligne)
Sheets('Trame').Range('B9') = Range('I' & Maligne)
Sheets('Trame').Range('B10') = Range('J' & Maligne)
Sheets('Trame').Range('B11') = Range('K' & Maligne)
Sheets('Trame').Range('B12') = Range('L' & Maligne)
Sheets('Trame').Range('B13') = Range('M' & Maligne)
End If 'Fin du Si
End Sub 'Fin de la procédure

Voilà j'espère que c'est plus claire pour toi

Bonne soirée

Message édité par: Pascal76, à: 28/02/2005 17:46

Bonjour,

Bon ben c'est quand même vachement plus clair(ils auraient pas pu faire un code VBA qui utilise des mots dans le texte? ça aurait quand même était plus accessible...)

Merci de cet eclaircissement. Je remetterai un post si je n'arrive toujours pas à mes fin.

Bonne journée,
Mr White