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

[Usine à gaz]

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 :

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]

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]

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

 

[TooFatBoy]

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]

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]

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

 

[Usine à gaz]

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

'    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]

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]

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

 

[Usine à gaz]

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]

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]

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

 

[Usine à gaz]

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]

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

 

[TooFatBoy]

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]

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