annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement

Index du forum

Accueil » Tous les messages (Patrice740)




Patrice740
Re : besoin d'aide sur fichier
#1
Invité
Bonjour,

Depuis, tu as probablement trouvé.

Sinon vérifie que la référence à Microsoft Windows Common Controls 6.0 (SP6) ne soit pas manquante :
Editeur VBA/ Outils / Références ...

Date de publication : 29/12/2018 15:14
____________________
Cordialement
Patrice
Dénoncer


Patrice740
Re : ACYD pour Excel 2003
#2
Invité
Bonjour,

Pour installer la macro complémentaire Acyd.xla :
Options Excel / Compléments / Atteindre / Parcourir / sélectionner le fichier Acyd.xla / Ok

Les commandes Acyd sont disponibles dans l'onglet Complément (il est parfois nécessaire de fermer / ré-ouvrir Excel pour voir l'onglet complément)

Date de publication : 22/01/2018 15:26
____________________
Cordialement
Patrice
Dénoncer


Patrice740
Re : problème macro
#3
Invité
Bonjour,

Tu peux mettre les macros dans chaque module de feuille :

Private Const adr$ = "C10"
Private ok As Boolean

Private Sub btnStart_Click()
  ok = True
  Me.Range(adr) = TimeSerial(0, 0, 30)
  Me.Range(adr).NumberFormat = "[mm]:ss"
  Call Decompte
End Sub

Private Sub btnStop_Click()
  ok = False
End Sub

Private Sub Decompte()
  If ok Then
    DoEvents
    Me.Range(adr) = Me.Range(adr) - TimeSerial(0, 0, 1)
    If Me.Range(adr) = 0 Then
      ok = False
      Exit Sub
    End If
    Application.OnTime Now + TimeValue("00:00:01"), Me.CodeName & ".DeCompte"
  End If
End Sub


Exemple fichier joint



Joindre un fichier:

Lien visibles uniquement pour les utilisateurs enregistrés

Date de publication : 30/12/2017 15:01
____________________
Cordialement
Patrice
Dénoncer


Patrice740
Re : Aide sur formule
#4
Invité
Bonjour Celtar,

Tu peux fusionner les 2 formules en une seule (mais c'est pas simplifié) :
=SI(SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))<8;7;SI(SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))<10;SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))+1;SI(SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))<13;SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))+2;SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))+3)))

On peut la simplifier mais c'est moins compréhensible :
=SI(SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))<8;7;SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))+SOMME(SI(SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))<{10;13};{0;1};{1;2})))

A ta place je garderais les 2 cellules, c'est le plus simple.

Cordialement
Patrice

Date de publication : 24/12/2017 19:47
____________________
Cordialement
Patrice
Dénoncer


Patrice740
Re : Decryptage fichier excel
#5
Invité
Bonjour,

Essaies avec Acyd sous Excel2003

Date de publication : 11/12/2017 00:07
____________________
Cordialement
Patrice
Dénoncer


Patrice740
Re : pas besoin d'aide juste un bonjour
#6
Invité
Bonjour le Forum,

Enfin un peu de vie ici,
merci à vous deux d'entretenir la flamme !

Bonne journée à tous

Cdlt

Date de publication : 13/09/2017 21:07
____________________
Cordialement
Patrice
Dénoncer


Patrice740
Bonne Année 2017
#7
Invité
Bonjour le forum et

Excellente Année 2017 à tous membres de Veriti qui font vivre ce forum.

Un grand merci à Vincent pour la mise à jour du bandeau : une véritable renaissance !

Une pensée pour Ti et Monique...

Date de publication : 07/01/2017 22:05
____________________
Cordialement
Patrice
Dénoncer


Patrice740
Re : Déjà du nouveau - Vos idees sont les bienvenues
#8
Invité
Bonjour le Forum,
Bonjour Brigitte,
Bonjour Salim,

Le forum est effectivement un peu vide depuis quelque temps.
Si quelqu'un peut mettre à jour le bandeau (Bonne année 2014), ça donnerai un signe vie.

Très cordialement,
Patrice.

Date de publication : 23/12/2016 12:35
____________________
Cordialement
Patrice
Dénoncer


Patrice740
Re : organiser les données
#9
Invité
Bonjour,

C'est un problème purement mathématique mais l’énoncé manque cruellement de précision !

Le nombre de colonnes est-il toujours le même (5) ?
Les nombres (de 1 à 70) y sont-ils tous présents au moins une fois ?

Date de publication : 22/01/2016 14:21
Dénoncer


Patrice740
Re : Les listbox
#10
Invité
Bonjour et bienvenue,

Tu trouvera un très bon cours VBA (gratuit) ici :
Cours VBA
Et des exemples de listbox multi-colonnes ici :
Listbox multi-colonnes

Cordialement
Patrice

Date de publication : 27/12/2015 10:45
Dénoncer


Patrice740
Re : Je n'arrive plus a ouvrir ce fichier
#11
Invité
Bonjour,

Tu trouvera peut-être la réponse dans l'aide à cette adresse :
http://excel.1.free.fr/AideComptaBilan/IndexAide.html

Cordialement
Patrice

Date de publication : 06/02/2015 08:13
Dénoncer


Patrice740
Re : Saisir automatiquement à partir d'un filtre
#12
Invité
Bonsoir,

J'ai été obligé de modifier la formule de calcul de la décision pour qu'un élève qui n'a aucune note ne soit pas Admis !
Il me semble que les critères de repêchage en fonction de « nbre sp » ne sont pas correctement formulés (il y a deux fois sp >= 1) mais toi seul peut le vérifier.

J'ai modifié la macro Valider pour mettre à jour les deux autres feuilles, mais tu aurais pu le demander dès le début, cela aurait évité de ré-écrire du code avec des contraintes différentes !

Voir fichier joint.

Cordialement
Patrice

Joindre un fichier:

Lien visibles uniquement pour les utilisateurs enregistrés

Date de publication : 15/03/2014 23:17
Dénoncer


Patrice740
Re : Saisir automatiquement à partir d'un filtre
#13
Invité
Bonjour,

Je ne vois pas où sont les difficultés !

C'est de l'utilisation courante d'Excel, qu'il s'agisse d'ajouter une nouvelle feuille ou de trier des données.

Patrice

Date de publication : 14/03/2014 17:10
____________________
Cordialement
Patrice
Dénoncer


Patrice740
Re : Saisir automatiquement à partir d'un filtre
#14
Invité
Bonjour Power01,

Pour choisir le numéro de table, j'ai mis une liste de validation basée sur une liste nommée, cela implique que, dans la base de données, cette colonne doit obligatoirement être renseignée de façon continue (sans sauter de cellule vide).

Voir le fichier joint

Cordialement
Patrice

Joindre un fichier:

Lien visibles uniquement pour les utilisateurs enregistrés

Date de publication : 13/03/2014 15:12
Dénoncer


Patrice740
Re : postionner automatiquement le curseur sur ligne crée
#15
Invité
Bonjour,

Essaies ce code
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  On Error Resume Next
  If Not Intersect(Target, Range("B11:B" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then
    Target.Value = UCase(Mid(Target.Value, 1, InStr(1, Target.Value, " ") + 1)) & LCase(Mid(Target.Value, InStr(1, Target.Value, " ") + 2, Len(Target.Value) - InStr(1, Target.Value, " ") + 1))
    Range("A11:N" & Range("B" & Rows.Count).End(xlUp).Row).Sort key1:=Range("B11"), header:=xlYes
  End If
  'Chercher la ligne avant celle sans numéro et se décaler '
  Range("A10").End(xlDown).Offset(1, 2).Select
   For i = 11 To Range("B" & Rows.Count).End(xlUp).Row
    Range("A" & i).Value = i - 10
  Next i
  Application.EnableEvents = True
End Sub


Cordialement

Date de publication : 14/02/2014 15:35
Dénoncer






Copyright 2013 Powered by XOOPS © 2001-2013