Roger avez vous une idée???

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Trier par date Trier par votes
Re : Roger avez vous une idée???

Bonjour olive323
Pas très claire, cette affaire...
Que cherche-t-on ?
Ceci, peut-être ?
Code: 
[COLOR="DarkSlateGray"][B]=SI(SOMMEPROD((C$2&$A3=activite!$A$1:$N$1&activite!$A$4:$N$4)*COLONNE($A$2:$N$2));DECALER(activite!$A$1;;SOMMEPROD((C$2&[COLOR="Red"]$[/COLOR]A3=activite!$A$1:$N$1&activite!$A$4:$N$4)*COLONNE($A$2:$N$2))-2);"")[/B][/COLOR]
en C3 de la feuille recap mensuel, à recopier à droite et en bas.​
ROGER2327
#4061

Vendredi 27 Phalle 137 (Priape, franc-tireur, SQ)
20 Fructidor An CCXVIII
2010-W36-1T11:51:41Z
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Roger avez vous une idée???

Bonsoir,

Ben, Roger, 07H40 pour répondre à une question personnelle, vous avez pris votre temps, je trouve......................................... 😀😀😀

@ Olive, vous n'avez sans doute pas lu la charte......

Bonne soirée des tropiques
 
Vote positif 0 Vote négatif
Re : Roger avez vous une idée???

  1. Il n'y a pas qu'un âne qui s'appelle Roger :

    Roger
    ROGER2327
    roger44
    rogerfon
    rogerrioux
    Rogers
    rogerseg
    rogerval​

  2. Je fais ce que je peux, quand je veux, si je veux.

  3. Salutations métropolitaines et cordiales.

ROGER2327
#4063

Vendredi 27 Phalle 137 (Priape, franc-tireur, SQ)
20 Fructidor An CCXVIII
2010-W36-1T12:29:26Z
 
Vote positif 0 Vote négatif
Re : Roger avez vous une idée???

Oh Roger, vous vous faites disputer!!!

L'objectif est de reporter la valeur qui se trouve dans la celluleA1 ( onglet activite) sur la feuille recap mensuel. Mais en tenant compte de la valeur dans la cellule B1 (dans ce cas 31) et en tenant compte aussi de la valeur en B4 ( dans ce cas C05). Le report de cette valeur doit se coller en face de C5 et 31.
Mais je pense que cela ne peux pas etre une formule car si je mets à jour l'onglet (activité) les données récoltées dans le recap mensuel vont disparaitres.


Suis je plus clair?

Cordialement
 
Vote positif 0 Vote négatif
Re : Roger avez vous une idée???

Re...
Non, je ne me fais pas disputer. Nous avons l'habitude de plaisanter, sur ce forum...

Quant au problème, je ne sais pas si j'ai tout compris. Voyez dans le classeur joint si la formule (légèrement corrigée) que j'avais proposée plus haut fait ce que vous souhaitez.​
ROGER2327
#4067

Vendredi 27 Phalle 137 (Priape, franc-tireur, SQ)
20 Fructidor An CCXVIII
2010-W36-1T16:45:59Z
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Roger avez vous une idée???

Encore merci Roger

ça fonctionne, mais dites moi avez vous une idée pourquoi mon fichier 9000ko est devenu très lent? La macro traite environ 20000 lignes. Moi qui voulait en traiter plus de 60000!!!
La macro ci dessous peut t'elle être plus simple?
Sub Supprime()
'
' Supprime Macro
' Macro enregistrée le 05/09/2010 par bo
'

'
Range("A4:B4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("G4:H4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("M4:N4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("S4:T4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("Y4:Z4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("AE4:AF4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("AK4:AL4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("AQ4:AR4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("AW4:AX4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("BC4:BD4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("BI4:BJ4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("BO4:BP4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("BU4:BV4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("CA4:CB4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("CG4:CH4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("CM4:CN4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("CS4:CT4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("CY4:CZ4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("DE4😀F4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("DK4😀L4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("DQ4😀R4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("DW4😀X4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("EC4:ED4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("EI4:EJ4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("EO4:EP4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("EU4:EV4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("FA4:FB4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("FG4:FH4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("FM4:FN4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("FS4:FT4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("FY4:FZ4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("GE4:GF4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A1").Select
End Sub
 
Vote positif 0 Vote négatif
Re : Roger avez vous une idée???

Re...
Ce code est effectivement très lourd. L'utilisation de Select risque fort de donner une certaine lenteur. On peut le remplacer par :
Code: 
[COLOR="DarkSlateGray"][B]Sub Supprime()
Dim i&, x
   x = Array("A4:B4", "G4:H4", "M4:N4", "S4:T4", "Y4:Z4", "AE4:AF4", _
   "AK4:AL4", "AQ4:AR4", "AW4:AX4", "BC4:BD4", "BI4:BJ4", "BO4:BP4", _
   "BU4:BV4", "CA4:CB4", "CG4:CH4", "CM4:CN4", "CS4:CT4", "CY4:CZ4", _
   "DE4:DF4", "DK4:DL4", "DQ4:DR4", "DW4:DX4", "EC4:ED4", "EI4:EJ4", _
   "EO4:EP4", "EU4:EV4", "FA4:FB4", "FG4:FH4", "FM4:FN4", "FS4:FT4", _
   "FY4:FZ4", "GE4:GF4")
   For i = 0 To UBound(x)
      Range(Range(x(i)), Range(x(i)).End(xlDown)).ClearContents
   Next i
End Sub[/B][/COLOR]
ROGER2327
#4073

Dimanche 1er Absolu 138 (Nativité d' Alfred Jarry, SPp)
22 Fructidor An CCXVIII
2010-W36-3T01:11:03Z
 
Vote positif 0 Vote négatif
Re : Roger avez vous une idée???

Bonjour,
Pour aller encore plus vite
mettre en début de macro :
Code: 
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

en fin de macro
Code: 
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
XL 2019 repartir une quantite dans plusieurs cellules
Réponses
6
Affichages
174
dshz
D
didier09
  • Résolu(e)
XL 2021 Aide formule avec plages nommées
Réponses
14
Affichages
379
TooFatBoy
TooFatBoy
L
  • Résolu(e)
Microsoft 365 Vba formulaire en bogage avec les ongles masqués
2 3
Réponses
30
Affichages
682
fanfan38
fanfan38
anthoYS
  • Résolu(e)
XL 2019 Des idées ou modèles de budget prévisionnel pour comparer avec le réalisé ? (voir fichier joint)
Réponses
4
Affichages
168
anthoYS
anthoYS
G
  • Résolu(e)
Power Query Power Query Gestion tableau
2 3 4
Réponses
48
Affichages
2 K
guypont
G
J
  • Question Question
XL 2021 #NA et autres erreurs
2
Réponses
18
Affichages
688
julienha
J
A
  • Résolu(e)
Autres aide colonnes masquees (pas de mdp)
Réponses
2
Affichages
191
Audray.V
A
P
  • Résolu(e)
XL 2021 Suivi fréquentation clientèle
Réponses
9
Affichages
377
Pedro_92
P
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
262
LaurentVasseur
L
C
  • Question Question
XL 2021 Recherche données dans une colonne...
Réponses
3
Affichages
312
gbinforme
G
anthoYS
  • Question Question
XL 2019 Avec l'aide de l'IA j'ai exporter tous les onglets ayant un code, les modules, les USF, etc. Mais*... ?
Réponses
3
Affichages
632
anthoYS
anthoYS
S
  • Question Question
Microsoft 365 TCD avec pourcentage en fonction d'une variable
Réponses
6
Affichages
449
chris
chris
Y
  • Question Question
Microsoft 365 Excel et le champ du SIREN
Réponses
1
Affichages
205
Hecatonchire
H
C
  • Résolu(e)
XL 2021 Incrémentation bête et méchante...
2
Réponses
19
Affichages
387
Constantin
C
J
  • Question Question
Word Modifier paragraphe de liste en corps de texte
Réponses
4
Affichages
199
Nain porte quoi
Nain porte quoi
D
  • Question Question
Microsoft 365 VBA erreur sauts de page ?
Réponses
11
Affichages
292
danielco
D
D
  • Question Question
XL 2021 Activation macro
Réponses
1
Affichages
161
sylvanu
sylvanu
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
352
patricktoulon
patricktoulon
Caninge
  • Résolu(e)
XL 2021 Combien de mois dans une colonne
2 3 4
Réponses
50
Affichages
3 K
TooFatBoy
TooFatBoy
E
  • Résolu(e)
Microsoft 365 Calcul Pourcentage dans Userform
Réponses
6
Affichages
299
job75
job75
Retour