Recherche:

Pfiou merci !!!

Du coup j'ai honte.... Mais je préfère ça !

Bonjour,

Je teste Office 2016 depuis quelques jours, notamment le VBA sous Excel et je constate que la commande On Error Resume Next ne fonctionne pas chez moi...

En cas d'erreur dans une...

Cette procédure fonctionne chez moi


Sub SavWorkbook()
Dim FolderSAV As String: FolderSAV = "C:\Temp\Test\"
'Dim FolderSAV As String: FolderSAV =...

Bonjour,

Dans ce que tu veux faire, tu modifies aussi cette ligne

Fichier = ThisWorkbook.Path & "\ICCS du " & _
Replace(Replace(Replace(Left(Now, 16), ":", "h"), " ", " à "),...

Bonjour,

La réponse que te donne Daniel est la bonne si tu souhaites que la mémorisation des informations saisies ne persiste pas après la fermeture de l'application.

Par contre, si tu veux...

C'est assez facile d'adapter le code pour gérer 2 boutons.
Le plus simple c'est de passer un paramètre à la fonction.

Dans le code de la feuille, chaque bouton appelle la fonction avec en...

Ton fichier a un peu bougé par rapport à la demande initiale :)
J'ai adapté

La fonction User32 est un appel à un composant Windows. Il sera utilisé pour savoir si la touche Shift est appuyée, ce...

As-tu défini des variables pour Collective et Individuelle ?

Sinon il faut écrire


Sheets("Individuelle")
Sheets("Collective")


et non

Alors si j'ai bien compris, c'est qu'il manque l'activation des feuilles.

Essaie avec ce code. En plus, j'ai masqué le tableau à ne pas afficher

Dans le module BilanCol


' Afficher la...

Bonjour,

Essaie avec ce code.

Attention : j'ai supposé que tes plages "conformes" étaient
C12 à AY13
puis C15 à AY16
puis C18 à AY19

... Si l'écart entre les plages n'est pas une...

Bonjour,

En fait, le bouton Retour de ta feuille Individuelle s'appelle CommandButton3 et non CommandButton1

Renomme simplement ta fonction en remplaçant CommandButton1 par CommandButton3

...

Pour partir sur de bons principes avec le VBA, je te conseille de commencer tous tes module par un

Option Explicit

Ensuite pour ta connexion et le Recorset, tu peux déclarer et initialiser...

C'est du parfait contre emploi...


SELECT DISTINCT COLUMNA
FROM TABLE

Je suis grandement preneur d'un exemple :)

Si tu n'en as pas, relis ce sujet http://sqlpro.developpez.com/cours/sqlaz/ensembles/#L1

La réponse est non.

1/ Un GROUP BY renverra toujours une erreur s'il n'y a pas de fonction d'agrégation dans la sélection

2/ Il faut nommer tous les champs

Bonjour,

Je ne comprends pas l'intérêt du GROUP BY sans fonction d’agrégation dans la sélection...

Tu peux préciser ce que tu souhaites faire ?

Effectivement, mais je n'avais jamais testé :oops:

Un coup pour rien donc...

Bonjour,



Reste l'option de réduire la taille du texte dans la cellulle... Le risque, c'est d'avoir du texte illisible si on a une chaîne de 250 caractères, mais pour ton exemple, ça marche....

Bonjour,

Pour la référence Calendar, il me semble qu'elle est apportée par Access.
As-tu Access dans ton installation d'Office ?

Pour ton second problème, ouvre les références du projet et...

La fonction s'exécute dès que la cellule sélectionnée de la page change.
L'argument Target contient la nouvelle cellule active

Bonjour,

Tu peux t'en sortir avec le code suivant en le plaçant dans la feuille contenant la cellule que tu souhaites tester.
Pour l'exemple, c'est la cellule F6 qui est testée.

Je pense...

Bonjour,

Plus simple et qui doit marcher dans tous les cas :

=ENT(L3/86400) & "j " & TEXTE(MOD(L3/86400;1);"hh:mm:ss")

L'erreur de la 2ème formule reste assez fascinant...

Edit : J'ai...

Bonjour,

En remplaçant NomOnglet par le nom de ton onglet de données


Dim noRow As Integer : noRow = 1
With Sheets("NomOnglet")
While .Cells(noRow,1) <> ""
.Cells(noRow, 3) =...

Bonjour,

Tu crées 3 tables :
1 pour les utilisateurs avec par exemple IdUser en clef primaire
1 pour les groupes avec par exemple IdGroupe en clef primaire
1 table pour la relation qui ne...

Bonjour,

Tu peux déjà commencer par ça : http://bidou.developpez.com/article/VBA/

Amuse toi aussi à regarder le code généré en VBA après avoir créé une macro (Alt+F11 pour ouvrir l'éditeur)