607 résultats trouvés

par gelinotte
22 décembre 2016, 16:18
Forum : Excel - VBA
Sujet : Je dois m'absenter pour une période indéterminée
Réponses : 3
Vues : 145

Je dois m'absenter pour une période indéterminée

Désolé pour les projets en cours ... Grisan29 et Eole33 et peut-être d'autres; je ne pourrais pas continuer, la santé ne suit pas.
J'espère que vous trouverez des gens pour terminer vos projet.
Mille excuses.


Gelinotte
par gelinotte
20 décembre 2016, 18:57
Forum : Excel - VBA
Sujet : Copier adresse Mail
Réponses : 5
Vues : 178

Re: Copier adresse Mail

Bonjour,

Désolé, je suis passablement dans la lune de ce temps-ci.
Pour être plus d'actualité, je devrais dire : je suis passablement sur Mars de ce temps-ci. ;;)
Ceci semble mieux fonctionner :

Code : Tout sélectionner

=SI(C5="";"";"mailto:" &LIEN_HYPERTEXTE(RECHERCHEV(C:C;Feuil1!$C:$D;2;FAUX)))


Gelinotte
par gelinotte
19 décembre 2016, 19:11
Forum : Excel - VBA
Sujet : Caractère persistant ???
Réponses : 2
Vues : 74

Re: Caractère persistant ???

Bonjour, À tester : Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Set Var = Application.Intersect(Target, Range("F5:G51")) If Target.Columns.Count = 1 And Target.Rows.Count = 1 Then If Not Var Is Nothing And IsNumeric(Target.Value) Then If Target.Value = "" The...
par gelinotte
19 décembre 2016, 18:13
Forum : Excel - VBA
Sujet : Copier adresse Mail
Réponses : 5
Vues : 178

Re: Copier adresse Mail

Bonjour,

À tester :

Code : Tout sélectionner

=SI(C5="";"";LIEN_HYPERTEXTE(RECHERCHEV(C:C;Feuil1!$C:$D;2;FAUX)))



Gelinotte
par gelinotte
19 décembre 2016, 15:12
Forum : Excel - VBA
Sujet : Code fonctionnant avec les titres de colonnes
Réponses : 9
Vues : 159

Re: Code fonctionnant avec les titres de colonnes

Bonjour, L'erreur à l'annulation, c'est maîtrisé. Questions : 1- le chemin et le nom du dossier où lire les .dbf sont-ils toujours les mêmes ? 2- le dossier où lire les .dbf, importe-t-on tous les .dbf ou seulement les 5 représentés par les boutons (PTECH, INFRA, EBP, CALBES, ADRESES) ? 3- je présum...
par gelinotte
18 décembre 2016, 22:58
Forum : Excel - VBA
Sujet : Nettoyage et optimisation de code
Réponses : 3
Vues : 156

Re: Nettoyage et optimisation de code

Bonjour, Si on va pas-à-pas ... Dans un IF, s'il y a juste une ligne, au lieu d'écrire : If Close_Assoc_After_Validation.Value = True Then AssociationSetup.Hide End If On peut écrire ainsi : If Close_Assoc_After_Validation.Value = True Then AssociationSetup.Hide Il y a plusieurs endroits qui pourrai...
par gelinotte
18 décembre 2016, 16:31
Forum : Excel - VBA
Sujet : Code fonctionnant avec les titres de colonnes
Réponses : 9
Vues : 159

Re: Code fonctionnant avec les titres de colonnes

Bonjour, Je ne comprends pas ceci ... :shock: ... lorsque je me sers du bouton annuler dans le menu de choix au départ ... Pour le reste, il y avait quelques coquilles dues aux copies des blocs dans les macros. EBP, le titre en ligne 21 et TableDestination:="SYNTHESE!R21C8" en 21 aussi ... il faut a...
par gelinotte
17 décembre 2016, 14:22
Forum : Excel - VBA
Sujet : Sélection de plusieurs colonnes en fonction des entêtes
Réponses : 3
Vues : 140

Re: Sélection de plusieurs colonnes en fonction des entêtes

Bonjour, Voir si ça convient : Sub Col_Select() Dim Cel As Range Dim Rech As Variant Dim X As Byte Rech = Array("CGMOD_P", "ORD", "TEST_2", "TOTAUX") ' variable tableau For X = 1 To 4 ' boucle sur le nombre Set Cel = Cells.Find(what:=Rech(X - 1)) ' variable tableau commence à 0, on doit soustraire 1...
par gelinotte
17 décembre 2016, 00:46
Forum : Excel - VBA
Sujet : Code fonctionnant avec les titres de colonnes
Réponses : 9
Vues : 159

Re: Code fonctionnant avec les titres de colonnes

Bonjour,

Désolé pour les deux erreurs sur la même ligne :
J'ai écrit : ...... For X = 1 To Cel(Application.Rows.Count, CCol).End(xlUp).Row
Mais c'était : For X = 2 To Cells(Application.Rows.Count, CCol).End(xlUp).Row



Gelinotte
par gelinotte
15 décembre 2016, 15:08
Forum : Excel - VBA
Sujet : Macro, afficher/masquer, protection
Réponses : 2
Vues : 101

Re: Macro, afficher/masquer, protection

Bonjour, Probablement ceci : Else: Sheets("Transport CSF-CV").Visible = False <<< Ici tu masques la feuille End If If Range("D26") <> "" And Range("N26") <> "" Then If MsgBox("Voulez-vous approfondir le chiffrage en passant à l'onglet Transport CSF-CV ?", vbYesNo) = vbYes Then Sheets("Transport CSF-...