Résultats de la recherche

Au top ! Encore un immense merci !

Merci beaucoup c'est top ! tu es mon sauveur ! je me permet d'abuser, tu pense que l'on peut faire apparaitre les textes "Compétences", "Evolutions"... en gras ?

Bonjour à tous, Je viens vers vous car je suis officiellement une bille en VBA J'ai besoin de créer des organigrammes automatiques. Après quelques recherches j'ai trouvé le code suivant (Merci Jacques Boigontier) : Dim colonne, débutOrg, f, forga, inth, intv, Tbl(), n Sub DessineOrgaH()...

Ca marche parfaitement !! Un énorme merci ! J'arrete les abus et vous souhaite une bonne fin de journée !!!

Bonjour à tous ! Vous êtes au top ! ça fonctionne d'enfer ! Je pense jamais au fonction NUM, EQUIV.... Faudra que je me les rentrent dans le crâne un jour... Un immense merci Je me permet d'abuser un tout petit peu ! Est il possible dans la partie (Janvier!K:K="DC") de mettre plusieurs...

Bonjour Job. Merci pour ta réponse. Mais un petit problème ce pose. J'ai des plages de plus de 4000 lignes et je mets à jour tous les mois le tableau (avec des variations de + ou - 500 lignes) d'où la formule sur colonne entières :/

Bonjour à tous, Je sais que la question à déjà été posé, mais je n'arrive toujours pas à résoudre mon problème. Je m'explique J'ai un tableau. 2 Colonnes: Colonne B : Les numéros des établissements Colonne C : Des codes d'absences, on recherchera le code "RP" J'ai fait une "formule" qui me...

Je viens de me rendre compte que je ne t'avais pas répondu ! Shame on me ! Un immense merci ! Ta solution fonctionne parfaitement ! Je ne sais pas d'où venez le problème mais tant pis :D ! Une très bonne continuation à toi et encore un immense merci pour ton aide précieuse !

Autant pour moi j'avais mal compris le message. J'ai lu que vous préconisiez de supprimer uniquement les 2 lignes: .Range("A1:Q" & LastLig).HorizontalAlignment = xlLeft .Range("T1:U" & LastLig).HorizontalAlignment = xlRight Et pas la macro entière. Effectivement si l'on supprime la macro...

Bonjour Job, Un très grand merci pour ta réponse J'en suis arrivé à la même conclusion et je vais appliquer ta solution, qui bien évidemment ne ma juste pas sauter au yeux alors que c'est quand même évident :oops: Puis je abuser encore un peu de ton temps car un deuxième problème du même type...

Bonjour à tous, J'ai un problème avec une macro et je n'arrive pas à trouver une solution... je vous explique : J'ai un bouton "MiseAJour" qui effectue l'enchainement de macro suivant: Sub RemplissageTableau() Application.ScreenUpdating = False Dim c As Range Dim EffNec EffNec =...

Et Salut ! Je te jure quand je lis tes solutions après une bonne grosse nuit de sommeil (20h-6h), ça me parait être d'une évidence.... Bon ben du coup ça fonctionne d'enfer. Un grand merci à toi et passe une bonne journée !

Sub MAJCouleurs() Application.ScreenUpdating = False ActiveWorkbook.RefreshAll Dim LigneBlanche LigneBlanche = "=IF(OR(RC13=""AGPRO"",RC13=""AGTEC"",RC13=""AGING"",RC13=""AGAPP""),0,RC[-2])" For i = 12 To Sheets.Count If i >= 12 Then Dim c As Range For Each c In i.Range("T1:U250")...

Bonjour, Déjà merci pour ton retour ! Justement le problème est que je n'arrive pas à comprendre comment cela fonctionne... et je ne trouve pas d'exemple concret pour le comprendre :( Surement la fatigue de fin de semaine :oops:

Bonjour à tous, J'ai une macro qui me permet, selon le nom des feuilles, d'appliquer une formule, sous une condition, dans une plage. Cette macro s'applique sur certaines feuilles, en en excluant selon leurs noms : Sub MAJCouleurs() Application.ScreenUpdating = False Dim c As Range For Each ws...