XL 2010 Résolu par Marcel : une macro qui gêne un code dans la feuille

Usine à gaz · 27 Décembre 2016

Bonjour à toutes et à tous,

Me voici à nouveau à vous solliciter.
En fait, il y a longtemps que je souhaitais vous poser cette question et puis .... le temps passant, n'ayant pas eu vraiment besoin, j'avais oublié.

Aujourd'hui, j'ai besoin d'exécuter "pas à pas" un code qui est dans le code de ma feuille .
Voici une partie du code :

Code:

If Not Application.Intersect(Target, Range("q7:q20000")) Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="Krameri"
   On Error Resume Next
   With Target
      ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:=False
      Call ClearClipboard
      Call sms
      ActiveCell.Offset(0, 1).Select
   End With

quand je veux déboyer pas à pas, hormis une sonnerie ..... rien ... nada qdal

Pourtant, j'ai besoin de voir ce qui se passe en détails car ce code fait référence à ma macro "sms".

- Quand j'exécute la macro "sms" direct, ça marche bien sans aucun problème.
- Quand je passe par le code de la feuille, la macro "sms" est exécutée n'importe comment et donc ça ne va plus.

Pourriez-vous me dire comment déboyer pas à pas à partir des codes feuilles ?
Je vous remercie encore une fois,
Amicalement,
Lionel,

TooFatBoy · 27 Décembre 2016

Oui, j'ai vu ton message précédent, d'où ma réponse précédente...

J'ai survolé le début de ta macro "SMS" et elle commence très bizarrement : ActiveCell.Copy
Ça veut donc dire que si on n'est pas sur la bonne cellule (mais quelle est-elle ???) avant de lancer la macro, alors celle-ci fait n'importe quoi. Non ?

Usine à gaz · 27 Décembre 2016

Oui, elle commence par ActiveCell.Copy
car il faut avoir cliqué sur la cellule à copier avant de lancer la macro

TooFatBoy · 27 Décembre 2016

Et je suppose que c'est une cellule de la plage K7:K16, la cellule en question.

Effectivement, après avoir exécuté la macro "sms", le Paste ne fonctionne plus pareil.
Je vais essayer de voir pourquoi, mais j'ai bien peur que ça dépasse mes compétences...

Usine à gaz · 27 Décembre 2016

dsl du retard, je n'avais pas vu ta réponse
LOL et moi donc
je cherche, je tâtonne ... mais du moment qu'en fermant le classeur et qu'ensuite en l'ouvrant à nouveau, ça marche .... la solution est certainement dans cette action.
Exécuter la macro sms doit peut-être jouer sur le format de je ne sais quoi ?
et l'ouvrir à nouveau doit remettre les chose "dans l'ordre".

Usine à gaz · 27 Décembre 2016

Youpi ..... je crois que j'ai trouvé
Je teste

Usine à gaz · 27 Décembre 2016

C'est ce code dans la macro sms qui cause le problème :

Code:

'    Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
'        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
'        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
'        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

Je vais essayer de le faire en enlevant des "morceaux" pas à pas"

Usine à gaz · 27 Décembre 2016

Le problème est bien là
Plus précisément, c'est ce code qui cause le problème : Space:=True
Et pourtant j'en ai besoin car sans ce code, le contenu de la cellule copiée n'est pas divisé.
Je ne sais pas comment faire pour trouver "la parade".

Peut-être il faudrait qu'en fin de macro le code Space:=false soit mis mais je ne sais pas l'écrire.

TooFatBoy · 28 Décembre 2016

J'ai légèrement modifié ta macro "sms"...

Usine à gaz · 28 Décembre 2016

Bonjour Marcel ... le Forum,
Que vois-je 2h57 du mat ? erreur d'affichage ou insomnie ?
En tous cas merci Marcel pour ce "beau" code que je suis bien incapable de faire ... c'est quand même un métier LOL.
Et ça marche nickel.
Merci Marcel
Bonne journée et à toutes et tous,
Amicalement,
Lionel,

TooFatBoy · 28 Décembre 2016

Non, ce n'est pas une erreur d'affichage.

Content pour toi si ce problème est résolu et que ton projet avance.

Usine à gaz · 28 Décembre 2016

Merci Marcel LOL, j'en ai encore d'autres

Usine à gaz · 28 Décembre 2016

Re, j'en ai 2 autres et ce sera, grâce à toi "beaucoup bien" avancé.

Si tu repasses sur le fil, je les soumets :
1 à la place du n° 0111111111; je voudrais qu'il aille chercher le n° en feuil3 E9
mais avec les &&&, je ne sais plus le faire
2 dans le code de la feuille, j'ai recopié une partie du code pour qu'en col Q, seuls les textes soient acceptés mais je n'y arrive pas en col E pour que seuls les n° soient acceptés.

j'ai modifié certaines données du fichier et je le remets en pièce jointe
Vraiment Merci pour tes solutions qui m'aident beaucoup.
Amicalement,
Lionel,

TooFatBoy · 28 Décembre 2016

Le & c'est comme un + c'est-à-dire que ça met bout à bout.

TooFatBoy · 28 Décembre 2016

Dans la macro "sms", remplace la ligne
TexteEnCours = TexteEnCours & "... Avez-vous vendu ? Voici mon n° tel : 0111111111, Cordlt"
par la ligne
TexteEnCours = TexteEnCours & "... Avez-vous vendu ? Voici mon n° tel : " & Sheets("Feuil3").Range("E9").Value & ", Cordlt"
qui permet d'aller chercher le contenu de la cellule E9 dans la feuille "Feuil3".

Usine à gaz · 28 Décembre 2016

J'ai compris ça mais je n'y arrive pas LOL
Avec concaténer, pas de souci mais avec les &, je n'arrive pas à coder

XL 2010 Résolu par Marcel : une macro qui gêne un code dans la feuille

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires