Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour jocelyn.
C'est une excellente solution, fonctionnant à merveille.
Il est temps pour moi de retravailler le panel de formules disponibles; je ne me souvenais plus de SOMMEPROD...
Bonne fin de journée et encore merci pour ton aide.
++
Guillaume
Bonjour à tous,
Suite à quelques années sans pratiquer Excel, certaines bases m'échappent.
De mémoire, ce site rassemble une communauté d'experts et je viens quérir votre aide !
J'ai la table suivante:
A (Nom société ) B (Type A) C (Type B) D (Prospect ) E...
Re : Macro formule : Set ____ = Worksheets("___").Range(!!!!!!)
Cela marche parfaitement,
Merci JP =) !
En revanche je ne comprend pas pourquoi il faut préciser qu'il s'agit de la Database puisque c'est déjà précisé dans Worksheets("Database").Range...
Lorsque l'on a des cellules déterminées...
Bonjour,
J'ai un début de macro comme suivant:
Dim Retrieve As Range
Set Retrieve = Worksheets("Database").Range([F126] & ":" & [G126])
F126 et G126 font apparaître des valeurs qui changent en fonction d'un critère. C'est pour cela qu'il faut absolument que cela cible ces deux...
Re : Macro Worksheet_Change à transformer en macro normal
Bonjour,
Merci pour vos réponses.
En effet, ma macro marchait et comme tu la dit Pierrot. Il suffit juste de la mettre sur la feuille active...
Merci Staple, Si... J'ai utilisé vos code pour alléger ma solution avec une préférence pour...
Re : Macro Worksheet_Change à transformer en macro normal
Snif ? :(
Cela manque t'il d'explications?
Dite le moi, je me ferais un plaisir de mieux expliquer !
Amicalement,
Guillaume
Re : Rendre automatique une macro.
Ceci ne marche pas : :'(
Malgré le côté bourrin de la méthode...
Sub Audits()
Application.ScreenUpdating = False
For i = 22 To 22
Rows(i).Hidden = Range("$C$20") > 0
Next i
For i = 24 To 24
Rows(i).Hidden = Range("$C$20") > 0
Next i
For i =...
Bonjour,
J'ai la macro suivante:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$C$20" Then Range("22:22,24:24,26:27").EntireRow.Hidden = Target > 0
If Target.Address = "$C$41" Then Range("43:43,52:53").EntireRow.Hidden = Target >...
Re : Formule EXCEL pour toucher les feuilles commençant par un nombre
J'ai trouvé la raison principale à la lenteur et l'importance de la taille du fichier.
Certes les formules pouvaient être améliorées. Mais le problème principal vient de l'alternance de colonnes avec des formules...
Re : Formule EXCEL pour toucher les feuilles commençant par un nombre
Bonjour Bond,
J'ai simplifié en trouvant une solution de la façon suivante (voir fichier joint) mais je vais tester ta formule, c'est sans doute encore plus réduit =) !
Merci pour cette formule, je ne connais pas la...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.