Forums XLPages

Tous les messages (Dan)

1 2 »
Re: Tableau croisé dynamique - Cumul des données par mois et sur plusieurs années
#1
Débutant XLPages

Inscription: 01/06/2007
De Liège Belgique

Messages: 12

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2000, 2010, MAC 2004 & 2011
Posté le : 07-04-2015 12h56

Bonjour

 

Merci de ton fichier

Toutefois, pourrais-tu me montrer ce que tu veux au final comme tableau. A la lecture de ta demande il s'agirait d'avoir uniquement la valeur 207,3 + 5 ??

 

Crdlt


@+ Dan
Hors Ligne
Rapport   Haut 

Re: Tableau croisé dynamique - Cumul des données par mois et sur plusieurs années
#2
Débutant XLPages

Inscription: 01/06/2007
De Liège Belgique

Messages: 12

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2000, 2010, MAC 2004 & 2011
Posté le : 02-04-2015 12h42

Bonjour,

 

Sans fichier ce n'est pas facile de simuler et apporter une solution à ton souci

 

Toutefois, pourquoi ne pas utiliser la fonction LIREDONNEESTABCROISDYN en créant un tableau à coté du TCD en question

 

Cordialement


@+ Dan
Hors Ligne
Rapport   Haut 

Re: Saisir une valeur dans une boite de dialogue
#3
Débutant XLPages

Inscription: 01/06/2007
De Liège Belgique

Messages: 12

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2000, 2010, MAC 2004 & 2011
Posté le : 30-03-2015 08h48

Bonjour

 

Une première approche avec ce code

 

Public valeur as string
Sub test()
Rep = MsgBox("Saisir l'album" & "Continuer ?", vbYesNo + vbQuestion)

If Rep = vbYes Then
    valeur = Application.InputBox(prompt:="Entrer votre valeur")
Else
   MsgBox "Procédure terminée", vbInformation
End If
If valeur = True Then
MsgBox "ok"
End If
End Sub

Par la déclaration en en-tête de module, la variable "valeur" pourra être réutilisée ailleurs dans ton projet et ce, jusqu'à ce que tu fermes ton fichier

 

A te relire sur cette proposition

 

Crdlt


@+ Dan
Hors Ligne
Rapport   Haut 

Re: Copier plages de cellules en VBA et les coller sur la même feuille
#4
Débutant XLPages

Inscription: 01/06/2007
De Liège Belgique

Messages: 12

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2000, 2010, MAC 2004 & 2011
Posté le : 05-01-2011 18h09
Bonsoir,

Voici un code à placer dans un module et lui associer éventuellement un bouton.


Sub test()
'Macro Dan pour Fenix le 05/01/2010
Dim cel As Range
apllication.ScreenUpdating = False
For Each cel In Range("G9:K9")
    With Worksheets(CStr(cel))
            .Select
            .Range("E10:E" & Range("E" & Rows.Count).End(xlUp).Row).Copy _
                Worksheets("synthèse").Cells(cel.Row + 1, cel.Column)
    End With
Next
Worksheets("synthèse").Select
End Sub
Amicalement

Edit dan : Afin que le code fonctionne, veille à ce que les mots "extrait 1", etc dans ta feuille synthèse (cellule G9 à K9) soit exempt des guillemets.



@+ Dan
Hors Ligne
Rapport   Haut 

Re: Affichage de dates la plus ancienne et la plus proche...
#5
Débutant XLPages

Inscription: 01/06/2007
De Liège Belgique

Messages: 12

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2000, 2010, MAC 2004 & 2011
Posté le : 14-07-2010 09h23
Bonjour,

Essaie avec cette formule pour LEE BRUCE

- en G8 --> =MIN(SI($A$1:$A9=F8;$B$1:$B9))
- en H8 --> =MAX(SI($A$1:$A9=F8;$C$1:$C9))

Les deux formules sont matricielles et donc à valider par CTRL + SHIFT (MAJ) + ENTREE.

Amicalement


@+ Dan
Hors Ligne
Rapport   Haut 

Re: Recherche valeur.
#6
Débutant XLPages

Inscription: 01/06/2007
De Liège Belgique

Messages: 12

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2000, 2010, MAC 2004 & 2011
Posté le : 30-05-2010 14h06
 Bonjour,

Cette ligne permet de connaitre la dernière colonne utilisée sur la ligne 3 dans ta feuille.
IV étant la dernière colonne de ta feuille si ta version d'excel est 2003 ou inférieur.

Amicalement

@+ Dan
Hors Ligne
Rapport   Haut 

Re: recopier une ligne
#7
Débutant XLPages

Inscription: 01/06/2007
De Liège Belgique

Messages: 12

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2000, 2010, MAC 2004 & 2011
Posté le : 15-11-2009 15h47
Re,

Citation :
claude40 a écrit : re
encore parfait mth,tu a tout mes remerciments
si je rajoute une ligne au dessus du tableau je doit modifier cette ligne?
If Not Intersect(Target, Range("a11:a" & Lg)) Is Nothing And Target.Row Mod 2 = 0 Then
je doit marquer:   
    If Not Intersect(Target, Range("a12:a" & Lg)) Is Nothing And Target.Row Mod 2 = 0 Then 
merci encore pour tout
a bientot et bonne fin de journée
claude         

Je suis le fil avec les interventions de mth mais j'ai toujours peine à comprendre ce que tu veux avoir.

Bon là tu as posté un fichier Xl2007 que je ne peux lire.
Sinon pour répondre à ton dernier post. Avec :
If Not Intersect(Target, Range("a12:a" & Lg)) Is Nothing And Target.Row Mod 2 = 0 Then 
Le code agira entre A12 et la ligne de la cellule en colonne A sur laquelle tu es positionné.

Amicalement

@+ Dan
Hors Ligne
Rapport   Haut 

Re: recopier une ligne
#8
Débutant XLPages

Inscription: 01/06/2007
De Liège Belgique

Messages: 12

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2000, 2010, MAC 2004 & 2011
Posté le : 14-11-2009 15h48
 Re,

Oulà, on va pas s'en sortir si on répond à deux demandes sur le même fil.

Pour Mth, essaie comme ceci :
Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'code pour copie de ligne a revoir
Dim Lg As Integer
Lg = Range("a1120").End(xlUp).Row
    If Not Intersect(Target, Range("a11:a" & Lg)) Is Nothing Then
        Application.EnableEvents = False
            If Target = "Fin Broyage" Then
                Range("A" & Lg & ":V" & Lg).Copy
                With Range("a" & Lg + 1)
                  .PasteSpecial Paste:=xlPasteFormats
                  .clearcontents
                  End With
            End If
    End If
        Application.EnableEvents = True
        Application.CutCopyMode = False
End Sub

Pour claude, ta demande me fait penser à ce fil --> http://www.excel-pratique.com/forum/viewtopic.php?t=14086

Amicalement







@+ Dan
Hors Ligne
Rapport   Haut 

Re: recopier une ligne
#9
Débutant XLPages

Inscription: 01/06/2007
De Liège Belgique

Messages: 12

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2000, 2010, MAC 2004 & 2011
Posté le : 14-11-2009 14h30
Bonjour,

Tu dis "tant que la cellule A11 n'indique pas  "Fin de Broyage"". Mais on doit recopier la ligne où et combien de fois ?

Par ailleurs est-il nécessaire d'avoir une cellule fusionnée en A11-C11 ? le mieux est toujours d'éviter les cellules fusionnées lorsque tu fais appel à VBA.

A te relire


@+ Dan
Hors Ligne
Rapport   Haut 

Re: regroupement de plusieurs classeurs xls sur un fichier
#10
Débutant XLPages

Inscription: 01/06/2007
De Liège Belgique

Messages: 12

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2000, 2010, MAC 2004 & 2011
Posté le : 16-08-2009 10h25
Bonjour à tous et à toi mon ami Didier,

Juste un petit message pour signaler une demande identique et proposition ici --> http://www.excel-pratique.com/forum/viewtopic.php?p=75013#75013

Bon dimanche à tous

Amicalement

Dan

Hors Ligne
Rapport   Haut 

1 2 »