2134 résultats trouvés

par ric
21 novembre 2019, 19:46
Forum : Excel - VBA
Sujet : Entrer plusieurs mots dans une cellule
Réponses : 11
Vues : 119

Re: Entrer plusieurs mots dans une cellule

Bonjour à tous,

Le code que je t'ai fait parvenir, c'est lui qui gère le cas et il ajoute au besoin le double apostrophe.
Donc, les gens peuvent saisir un nom contenant une apostrophe et ça va fonctionner. :mrgreen:








ric
par ric
21 novembre 2019, 13:05
Forum : Excel - VBA
Sujet : Erreur 1004 avec une méthode not intersect
Réponses : 3
Vues : 63

Re: Erreur 1004 avec une méthode not intersect

Bonjour, Il semble y avoir de la confusion à l'exécution du code. Le code, en écrivant dans la feuille, déclenche à répétition l'exécution Private Sub Worksheet_Change(ByVal Target As Range) . Les Unprotect et Protect finissent par se mêler et le code bogue en tentant d'écrire dans une feuille proté...
par ric
21 novembre 2019, 12:34
Forum : Excel - VBA
Sujet : Macro ne fonctionne pas sur tous les PCs
Réponses : 23
Vues : 241

Re: Macro ne fonctionne pas sur tous les PCs

Bonjour à tous, La suggestion d'X Cellus en pas-à-pas détaillé... Sur l'ordinateur de ta collègue où l'exécution pose problème ... Ouvre les deux fichiers : 1- Planning_Equipe ......... puis, macro_planning........ Ouvre la fenêtre "Microsoft Visual Basic pour Applications" (raccourci ALT-F11) . Va ...
par ric
21 novembre 2019, 09:52
Forum : Excel - VBA
Sujet : Copie-colle VBA sous condition
Réponses : 7
Vues : 72

Re: Copie-colle VBA sous condition

:bv3:









ric
par ric
21 novembre 2019, 09:47
Forum : Excel - VBA
Sujet : Entrer plusieurs mots dans une cellule
Réponses : 11
Vues : 119

Re: Entrer plusieurs mots dans une cellule

Bonjour à tous, Si le nom comporte une apostrophe, il faut doubler l'apostrophe dans la formule ... Un essai ... Voir deux lignes avant le "End Sub". Sub duplic() Dim x Dim NomFeuil As String ' << ajout ... Dim Dlig As Integer ' << ajout ... x = InputBox("Nom prénom et secteur du nouveau salarié") I...
par ric
20 novembre 2019, 18:22
Forum : Excel - VBA
Sujet : Pièce jointe vérouillée
Réponses : 9
Vues : 85

Re: Pièce jointe vérouillée

Bonjour, Cela sert quelques lignes plus bas à extraire le nom du fichier sans son chemin. MonFich = Right(Source_File, Len(Source_File) - Len(LeNom)) Ensuite, avec le nom du fichier, l'on peut lire dedans. Montant = Workbooks(MonFich).ActiveSheet.Range("E" & dlig).Value Pour inclure le Montant dans ...
par ric
20 novembre 2019, 16:34
Forum : Excel - VBA
Sujet : Entrer plusieurs mots dans une cellule
Réponses : 11
Vues : 119

Re: Entrer plusieurs mots dans une cellule

Bonjour à tous,

@Xmenpl ... tout à fait d'accord. Le fichier d'origine était tout autre, je constate qu'il a été adapté à de nouveaux besoins.







ric
par ric
20 novembre 2019, 16:25
Forum : Excel - VBA
Sujet : Entrer plusieurs mots dans une cellule
Réponses : 11
Vues : 119

Re: Entrer plusieurs mots dans une cellule

Bonjour, Curieux, l'on dirait qu'il y a eu des changements dans le code depuis. Quoiqu'il en soit .... Un essai de correction ... Dans la feuille "Accueil" ... remplace ... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 Then If Target.Column = 1 And Target.Row >= 3 ...
par ric
20 novembre 2019, 13:12
Forum : Excel - VBA
Sujet : Pièce jointe vérouillée
Réponses : 9
Vues : 85

Re: Pièce jointe vérouillée

Bonjour, Un essai ... Remarque : j'ai ajouté le symbole euro à la suite du montant dans le texte du corps du message ... Sub send_diana() 'Must add references (Tools > References) to ' 1) OLE Automation ' 2) Microsoft Outlook xx.0 Object Library Dim outlookApp As Outlook.Application Dim myMail As Ou...