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)




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 15:14
____________________
Cordialement
Patrice
Dénoncer


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


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(0030)
  
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(001)
    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


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


Re : Decryptage fichier excel
#5
Invité


Bonjour,

Essaies avec Acyd sous Excel2003

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


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


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


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


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


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


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


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


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


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


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(TargetRange("B11:B" Range("B" Rows.Count).End(xlUp).Row)) Is Nothing Then
    Target
.Value UCase(Mid(Target.Value1InStr(1Target.Value" ") + 1)) & LCase(Mid(Target.ValueInStr(1Target.Value" ") + 2Len(Target.Value) - InStr(1Target.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(12).Select
   
For 11 To Range("B" Rows.Count).End(xlUp).Row
    Range
("A" i).Value 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