Résultats de la recherche

Re : résolution d'écran il faut alors définir la plage ou l'utilisateur pourra modifier des cellules par exemple Feuil1.ScrollArea = "$a$1:$G$10" Ensuite, tu protege la feuille en utilisant l'option "autoriser à selectionner les cellules deverouillées" mais sans cocher "autoriser à...

Re : Supprimer les points dans un numéro tel Edtion/copier (colonne B selectionnée) edition/collage spécial -> valeur tu peux ensuite supprimer le colonne A qui devient inutile car les formules ont disparues

Re : résolution d'écran Suite à ta demande d'aide, voici le code à coller dans l'objet "thisworkbook" : Private Sub Workbook_Open() Feuil1.ScrollArea = "$a$1" Feuil1.[A1:I35].Select ActiveWindow.Zoom = True Feuil1.[H3].Select End Sub La fenêtre ne pourra plus croller (blocage sur...

Re : résolution d'écran J'ai été confronté au même problème. Je l'ai résolu de manière efficace comme suit (à adapter bien sur) : Sub zoom_fenetre() Feuil1.[A1:I35].Select ActiveWindow.Zoom = True Feuil1.[H3].Select End Sub Ainsi, on a toujours dans mon cas la plage A1:I35 à...

Re : Test sur une cellule avant la copie Alors voila a quoi peut ressembler le code complet : Function n_feuille_existe() As Boolean Set feuille_base = ThisWorkbook.Worksheets("Feuille de soins") Set feuille_copie = ThisWorkbook.Worksheets("Fiche client") n_a_copier =...

Re : graphique En fait j'y arrive mais que bizarement ..... ça pourra peut être doner une piste Tu copie ton graphique Tu vas sur WORD la collage special -> coller avec liaison Ce graphique suit bien les modifciations du 1er Tu copie ce graphique de WORD tu retourne dans excel collage...

Re : formule paramétrée Et tu ne veux que les 3 premier (comem dans ton exemple) ou tous les noms triés ?

Re : Changer l'icone d'un fichier en cours d'utilisation Même si on arrive à change l'icone sur les autres postes, il y aura un probleme de rafraichissement, c'est donc super délicat comme tu veux le faire. Peurt être une solution .... ou un début : 1) créer un tout petit fichier excel...

Re : Test sur une cellule avant la copie Selon ton exemple, voici une fonction qui renvera true si le numéro de feuille existe déjà et false si c'est un nouveau numéro Function n_feuille_existe() As Boolean Set feuille_base = ThisWorkbook.Worksheets("Feuil1") Set feuille_copie =...

Re : suppression de lignes La macro de Roger (qui est complète) ce place dans l'explorateur de macro (ALT+F11) directement dans l'objet feuille (par exemple Feuil1(Feuil1) pour un nouveau classeur) L'execution est automatique, il suffit de double cliquer sur une cellule pour supprimer toute...

Re : comment arrondir à 1000 près un chiffre A placer à droite de la cellule à arrondir : =IF(ISNUMBER(RC[-1]),ROUND(RC[-1],-3),IF(RC[-1]="""","""",RC[-1]))

Re : comment arrondir à 1000 près un chiffre je pense plus simple ou j'ai pas compris la question ... ARRONDI(B3;-3)

Re : numero de fenêtre d'un programme lancé par shell Ca m'avance un peu mais c'est pas ça à 100% Je vais y reflechir, la nuit porte conseil. Merci

Re : passage souris changement couleur de cellule quelqu'un peut essayer ? a priori pour moi ça a marché j'ai testé avec des liens externes. J'ai déjà trashé le fichier et je dois couper. Merci

Re : passage souris changement couleur de cellule en remplacant le code par celui ci ça devrait fonctionner : Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) mise_a_0 Me.Cells(Int(Y / 14) + 5, Int(X / 60) +...

Re : passage souris changement couleur de cellule Donc si je comrpend bien, tu veux que le clic envoie vers le lien de la celule cliquée. Je vais te bidouiller un truc, ça sera plus facile encore que de selectionner la cellule.

Re : passage souris changement couleur de cellule Je n'avais pas à dire c'est pas possible ça me donne envie d'y arriver :D Voilà ma solution avec un seul objet, ceris sur le gateau, si on passe la souris en appuyant sur "SHIFT" ça modifie la couleur. Trop beau Excel .............

Re : passage souris changement couleur de cellule Je ne pense pas que c'était las solution cherchée, il faut cliquer pour activer la cellule. Et histoire de me contredire ce n'est pas faisable avec les cellules mais certains objets (boutons, graphiques) accepte l'ebenement mousemove. Donc...

Re : passage souris changement couleur de cellule Sans clic ça me parait difficle car Excel gère les evenements or le déplacement de la souris n'est pas un evenement (comme peut l'être un changement de cellule, un clic, 1 double clic ...)

Re : Faire un net send en VBA possible ? s'il s'agit juste de lancer un .BAT pas de probleme : Sub test() Shell "c:/essai.bat" End Sub