Mise en forme conditionnelle sur clic

Le 10/11/2019 à 10:55

Salut à vous deux,

Je suis stupéfait de l'énergie que vous déployez à m'aider

Je crois que je dois mal me débrouiller car quand je mets le code dans BDD, et que je sors ensuite du mode création, je n'ai plus rien qui se passe.

Quand je rajoute des noms de fournisseurs dans la BDD, les noms n'apparaissent pas dans le tableau.

Le 10/11/2019 à 12:24

Salut Thierry,

Salut m3ellem1,

comprends pas! J'ai récupéré les éléments et reconstruit le programme : pas de souci!

Je te le renvoie...

A+

9thierrybdx.xlsm (26.36 Ko)

Le 10/11/2019 à 13:10

Bonjour et bon dimanche,

Je en comprends pas non plus. Même dans ce fichier je n'ai rien qui fonctionne.

Pourtant tout est autorisé et je en suis pas en mode création.

Bizarre, bizarre ...je cherche

Le 10/11/2019 à 13:22

Bon, j'ai trouvé

il y avait un autre fichier d'ouvert avec un code qui apparemment gênait celui ci.

Maintenant ça fonctionne et vachement bien

J'attends impatiemment la suite la nuit prochaine

Bonne journée

Le 11/11/2019 à 05:58

Salut Thierry,

comme promis, voici la suite, qui te permettra d'ajouter ou supprimer des secteurs d'activité et/ou des spécialités techniques.

Tout cela se passe à partir de 'BDD' !

quand tu cliques à droite de la BDD ou en-dessous, une case verte s'allume, prête à recevoir une nouvelle affectation ;
quand tu cliques sur une en-tête existante ou un fournisseur existant, cela consiste à corriger l'item ciblé ;

(Ça me fait penser que je n'ai pas prévu le retrait d'un fournisseur ! )

- je suppose que tu as trouvé pour ajouter un fournisseur...

Prochaine étape :

prévoir le retrait d'un fournisseur ;
le tri des blocs-lignes fournisseurs et des colonnes activités.

Tu regardes tout ça et tu me fais un topo ?

A+

9thierrybdx.xlsm (40.00 Ko)

Le 11/11/2019 à 12:42

Bonjour Curulis,

Là, j'ai à faire à un perfectionniste.

Tu vas au-delà de mes espérances.

Tout est parfait, j'ai essayé dans tous les sens, pas de bug.

Le curseur qui se place tout seul dans les colonnes de la BDD
La liste des fournisseurs qui se met automatiquement à jour dans le tableau à partir de la BDD
La possibilité de créer/supprimer des nouvelles activités et spécialités dans la BDD avec les bordures qui apparaissent automatiquement
Le tableau qui se dimensionne automatiquement en fonctions de la BDD

J’ai constaté que lorsque on rajoute une colonne dans la BDD, celle-ci se place en avant dernier, alors que quand on rajoute une ligne elle se place en dernier. Je crois que ça n’a pas beaucoup d’importance si tu fais un tri par la suite.

Je ne comprends pas ce que tu entends par « retrait d’un fournisseur ». si c’est de la suppression dont tu parles dans la BDD, ça fonctionne bien, elle disparaît de la colonne fournisseur dans l’onglet tableau.

Merci et encore

Le 11/11/2019 à 16:55

Salut Thierry,

la suite de l'aventure avec le tri de la BDD...

Limites :

je postule qu'il n'y aura jamais moins de 2 secteurs d'activité ou de spécialités techniques sinon -> erreur dans tri ou création des sections ;
le tri des différents libellés ne tient pas compte des accents ou espace dans les différents libellés ce qui cause donc des "dyslexies" orthographiques!

Public Sub TriBDD(ByVal iIdx%)
'
Dim tTab, iRow%, sCol$
'
iRow = Range("A" & Rows.Count).End(xlUp).Row + 9
'
If iIdx = 1 Then
    'Tri colonnes Secteurs d'activités
    For x = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        For y = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
            If Cells(1, y) < Cells(1, y - 1) Then
                tTab = Range(Chr(63 + y) & "1:" & Chr(63 + y) & iRow).Value
                Range(Chr(63 + y) & "1:" & Chr(63 + y) & iRow).Value = Range(Chr(64 + y) & "1:" & Chr(64 + y) & iRow).Value
                Range(Chr(64 + y) & "1:" & Chr(64 + y) & iRow).Value = tTab
            End If
        Next
    Next
Else
    'Tri blocs-lignes Spécialités techniques
    sCol = Chr(64 + Cells(1, Columns.Count).End(xlToLeft).Column)
    For x = 2 To iRow - 9 Step 10
        For y = 12 To iRow - 9 Step 10
            If Cells(y, 1) < Cells(y - 10, 1) Then
                tTab = Range("A" & y - 10 & ":" & sCol & y - 1).Value
                Range("A" & y - 10 & ":" & sCol & y - 1).Value = Range("A" & y & ":" & sCol & y + 9).Value
                Range("A" & y & ":" & sCol & y + 9).Value = tTab
            End If
        Next
    Next
End If
'
End Sub

Si tu veux un classement orthographique pur et dur, je te laisse "zyeuter" le code suivant où je réalise la chose.

https://forum.excel-pratique.com/viewtopic.php?p=809447#p809447

Si tout est OK et sans bug...

Avec plaisir, l'ami!

Bon travail!

A+

17thierrybdx.xlsm (37.75 Ko)

Le 12/11/2019 à 02:26

Salut Curulis,

Apparemment ça à l'air d'être tout bon ça !

Je vais le tester demain en profondeur et je reviens vers toi.

Je mettrai résolu si tout est ok.