Forums XLPages

Tous les messages (JCGL)

1 2 3 4 ... 31 »
Re: Tableau croisé dynamique et formule NB.SI
#1
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 05-04-2015 12h09

Bonjour à tous,

 

Bienvenue sur mDFXLPages

 

Sans tableau complémentaire et après avoir renseigné le tableau de base pour les magasins (pas de vide dans une base de donnée sur la première colonne et sur la première ligne).

 

Utilisation des Segments puisque tu es sous XL 2013.

 

A+ à tous

Pièce jointe:
xlsx JC Nombre Valeurs TDC.xlsx   [ Taille: 28.23 Ko - Téléchargements: 1274 ]


Cordialement
Hors Ligne
Rapport   Haut 

Re: Tableau synthétique (croisé), Trié, sans doublons, sans macros, sans chiffres
#2
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 04-04-2015 09h45

Bonjour à tous,

 

Bienvenue sur mDFXLPages

 

Le TCD n'est pas approprié avec les données actuelles.

Un essai avec différentes formules et plages nommées ( et dynamiques) pour réduire le temps de calcul.

Ajout d'une MeFC pour les doublons de la feuille "travail"

 

J'ai modifié ta feuille "Explications" avec mes "modifications".

 

A+ à tous

Pièce jointe:
xlsx JC Num_Licences.xlsx   [ Taille: 25.76 Ko - Téléchargements: 563 ]
Edité par JCGL le 05/04/2015 12:40:06


Cordialement
Hors Ligne
Rapport   Haut 

Re: Doublons, enfin... pas vraiment !
#3
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 25-01-2015 19h59

Bonjour à tous,

 

Pas certain d'avoir compris la demande...

 

Utilisation de cette formule dans la MeFC :

=NB.SI(Plage;Cellule)=1

Et cette formule en C3 et suivantes :

=OU(NB.SI($A$3:$B$12;A3)=1;NB.SI($A$3:$B$12;B3)=1)

A+ à tous

Pièce jointe:
xlsx JC ASFR.xlsx   [ Taille: 18.14 Ko - Téléchargements: 564 ]
Edité par JCGL le 25/01/2015 20:19:27


Cordialement
Hors Ligne
Rapport   Haut 

Re: Mise en forme conditionnelle avec 2 conditions
#4
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 22-02-2014 09h10

Bonjour à tous,

 

Bienvenue sur mDFXLPages

 

Peux-tu essayer ceci :

=OU($G2>25;TROUVE("enfant";$H2;1)>0)

A+ à tous

 

 

 

 



Cordialement
Hors Ligne
Rapport   Haut 

Re: Onglet en fonction des variable
#5
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 27-04-2013 20h18
Bonjour à tous,

Bienvenue sur mDF-XLpages

Pas facile de tenter de t'aider : pas de fichier joint...

A+ à tous 


Cordialement
Hors Ligne
Rapport   Haut 

Re: Problème sur condition
#6
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 27-04-2013 19h56
Bonjour à tous,

Ton fichier ne comporte pas d'USF.

Un essai avec ce que j'ai compris de la demande :

Dans le module de l'USF
Option Explicit

Private Sub CommandButton1_Click()
Dim DerL&
DerL = Feuil1.Range("A" & Rows.Count).End(xlUp).Row + 1

Feuil1.Cells(DerL, 1) = TextBox1
Feuil1.Cells(DerL, 2) = TextBox2
Feuil1.Cells(DerL, 3) = TextBox3

Feuil4.Cells(3, 2) = TextBox1
Feuil4.Cells(6, 2) = TextBox2
Feuil4.Cells(9, 2) = TextBox3

UserForm1.Hide
End Sub

Dans un module (ton code très légèrement modifié)
Sub trouve()
Dim DerL As Long, compteur As Long, C As String, ok As Long
C = Sheets("Recherche").Range("C7").Value
DerL = Sheets("BD").Range("A" & Rows.Count).End(xlUp).Row
 'compteur pour vérifier chaque cellule de la colonne
 Sheets("BD").Select
 For compteur = 2 To DerL
    If Range("A" & compteur).Value = C Then
        Range("A" & compteur, "C" & compteur).Copy
       Sheets("resultat").Select
       Range("A1").Select
       ActiveSheet.Paste
     End If
    Next compteur
  'mise à jour remplissage
    With Sheets("remplissage")
        .Cells(3, 2).Value = Sheets("resultat").Range("A1").Value


        .Cells(6, 2).Value = Sheets("resultat").Range("B1").Value
        .Cells(9, 2).Value = Sheets("resultat").Range("C1").Value
     End With
    Sheets("resultat").Range("A1:C1").ClearContents
    If Feuil4.Range("B3") = "" Then
        ok = MsgBox(" Recherche infructueuse", vbYesNo, "Voulez-vous créer un nouveau contact?")
        If ok = 6 Then
        UserForm1.Show
       End If
     End If
    Sheets("Remplissage").Select
End Sub
  

A+ à tous
Pièce jointe:
xlsm JC USF Recherche et Création.xlsm   [ Taille: 35.75 Ko - Téléchargements: 614 ]


Cordialement
Hors Ligne
Rapport   Haut 

Re: Mot de passe sur bouton
#7
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 25-04-2013 20h40
Bonjour à tous,

Avec un code de l'ami Didier

Option Explicit
'---------------------------------------------------------------------------------------
' Auteur    : Didier FOURGEOT (myDearFriend!) - www.mdf-xlpages.com
' Date      : 26/07/2007
' Sujet     : Une InputBox façon "Mot de Passe" ?
'---------------------------------------------------------------------------------------
Public Rep As String

Function InputBoxPwd(rPrompt As String, Optional rTitle As String, Optional rDefault As String) As String
Dim Usf As Object
Dim T As String
Dim N As Byte
    'Création d'un Userform "à la volée"
    Set Usf = ThisWorkbook.VBProject.VBComponents.Add(3)
    With Usf
        For N = 1 To 4
            'Propriétés du USF
            If N < 4 Then
                .Properties(Choose(N, "Caption", "Height", "Width")) = Choose(N, rTitle, 110, 280)
            End If
            'Création des 4 contrôles et du code associé aux boutons
            With .Designer.Controls.Add("Forms." & Choose(N, "TextBox", "Label", "CommandButton", "CommandButton") & ".1")
                .Move Choose(N, 6, 6, 228, 228), _
                        Choose(N, 64, 6, 6, 30), _
                        Choose(N, 264, 210, 42, 42), _
                        Choose(N, 16, 54, 18, 18)
                Select Case N
                Case 1
                    'Propriétés du TextBox
                    .Value = rDefault
                    .PasswordChar = "*"
                Case Else
                    .Caption = Choose(N - 1, rPrompt, "OK", "Annuler")
                    'Création du code VBA associé aux boutons
                    If N > 2 Then
                        T = "Private Sub " & .Name & "_Click(): "
                        If N = 3 Then
                            .Default = True
                            T = T & "Rep = Me.TextBox1.Text: "
                        End If
                        T = T & "Unload Me: End Sub"
                        With Usf.CodeModule
                            .InsertLines .CountOfLines + 1, T
                        End With
                    End If
                End Select
            End With
        Next N
        'Afficher InputBox fictive
        VBA.UserForms.Add(.Name).Show
        'Retour réponse utilisateur
        InputBoxPwd = Rep
    End With
    'Supprimer l'USF créé
    ThisWorkbook.VBProject.VBComponents.Remove Usf
End Function
  



Et

Private Sub CommandButton4_Click()
Dim sPass As String
If MsgBox("Etes-vous le concepteur du programme ?", 4 + 32, "Demande du concepteur") = vbYes Then
Else
End
End If
Do
sPass = InputBoxPwd("Veuillez saisir le mot de passe")
If sPass = "mon mdp" Then
Exit Do
End If
Loop While 1 = 1
ActiveWindow.DisplayWorkbookTabs = True
End Sub
  

A+ à tous 



Pièce jointe:
xls JC_mDF MdP Etoiles.xls   [ Taille: 76.00 Ko - Téléchargements: 895 ]


Cordialement
Hors Ligne
Rapport   Haut 

Re: Nommer une Plage Dynamique par liaison
#8
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 16-03-2013 19h49
 Bonjour à tous,

Fonctionne parfaitement avec le classeur Source.xlsx fermé... Si les plages sont nommées, c'est encore mieux.

Ne pas oublier les ' qui vont bien :
=SOMMEPROD(('C:\Users\Jean-Claude\Downloads\Source.xlsx'!Nom=B3)*'C:\Users\Jean-Claude\Downloads\Source.xlsx'!Valeur)

Enregistre les deux fichiers dans le même répertoire
Ouvre les deux fichiers pour "activer" les liaisons.

Tu peux maintenant fermer le classeur Source.xlsx après enregistrement pour mémoriser les nouvelles liaisons.
Tu peux fermer le classeur Cible.xlsx et le réouvrir : les liaison et formules sont opérationnelles.

A+ à tous




Pièce jointe:
xlsx Cible.xlsx   [ Taille: 15.01 Ko - Téléchargements: 657 ]
xlsx Source.xlsx   [ Taille: 14.09 Ko - Téléchargements: 664 ]


Cordialement
Hors Ligne
Rapport   Haut 

Re: Masquée une feuille
#9
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 20-02-2013 13h29
Bonjour à tous,
  • Dans l'Editeur VBA,
  • tu sélectionnes la feuille concernée
  • tu vas dans les Propriétés par F4
  • tu choisis (tout en bas) Visible et tu choisis xlSheetVeryHidden

Ta feuille ne sera plus visible et n'apparaîtra pas dans les feuilles masquées
Pour bien faire, tu peux verrouiller le Projet VBA

A+ à tous


Cordialement
Hors Ligne
Rapport   Haut 

Re: Masquée une feuille
#10
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 20-02-2013 11h59
Bonjour à tous,

Ton fichier n'est pas passé.

Tu ne peux avoir qu'un WorkBook_Open par Projet VBA.
A toi de regrouper les lignes et de les mettre dans un seul WorkBook_Open

A + à tous 


Cordialement
Hors Ligne
Rapport   Haut 

1 2 3 4 ... 31 »