Bonjour à tous,
Bonjour à toutes,
J'ai un soucis et je ne trouve pas la solution.
Dans une macro qui m'ajoute des lignes, il y a des instructions qui doivent supprimer les espaces dans les colonnes C et D
Mais voilà, et je ne sais pourquoi, la macro me supprime tous les espaces dans toutes les autre colonnes, y compris colonnes de titres et même dans mes formules.
Cela rend tout quasiment illisible.
Si vous pouviez m'aider pour la solution et surtout pour que je comprenne, ce serait super (comme d'habitude LOl)
Ficher test en pièce jointe (mot de passe: mdp),
Encore un grand merci d'avance,
Je vous souhaite une bonne fin de semaine à toutes et à tous.
Amicalement,
Caliméro,
Bonjour à toutes,
J'ai un soucis et je ne trouve pas la solution.
Dans une macro qui m'ajoute des lignes, il y a des instructions qui doivent supprimer les espaces dans les colonnes C et D
Mais voilà, et je ne sais pourquoi, la macro me supprime tous les espaces dans toutes les autre colonnes, y compris colonnes de titres et même dans mes formules.
Code:
Sub CopieLigne()
'
' CopieLigne Macro
'
'
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="mdp"
Range("C3").Select
ActiveCell.FormulaR1C1 = ""
Range("C4:D1000").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("C1").Select
ActiveCell.FormulaR1C1 = "Téléph Pige CRM"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Téléph Autre"
Call AjouteC33
Call AjouteD33
Rows("3:3").Select
Selection.RowHeight = 150
ActiveSheet.Rows(3).Copy ActiveSheet.Cells(Rows.Count, 1).End(xlUp)(2)
Rows("3:3").Select
Selection.RowHeight = 0
Call liens
Call DatesRappelsTrie
Range("F4").Select
ActiveSheet.Protect Password:="mdp", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub
Cela rend tout quasiment illisible.
Si vous pouviez m'aider pour la solution et surtout pour que je comprenne, ce serait super (comme d'habitude LOl)
Ficher test en pièce jointe (mot de passe: mdp),
Encore un grand merci d'avance,
Je vous souhaite une bonne fin de semaine à toutes et à tous.
Amicalement,
Caliméro,
Pièces jointes
Dernière édition: