Bonjour voici la petite macro, je suis novice la dedans, elle n'est certainement pas parfaite...
J'aimerai pouvoir décaler d'une colonne sur la gauche l'insertion de la variable "projet".
J'aimerai également modifier ce qui a été saisie pour Nom_client et Nom_projet.
Il faudrait que je puisse mettre tout en minuscule sauf la première lettre qui serait en Majuscule.
Si vous voyez des abérations sur la programmation.Je suis preneur d'une correction...
Merci de votre aide.
Sub Insert colonne()
Dim Cellule_en_cours As Range
Dim Cellule As String
Dim Celluledecal As String
Dim Nom_projet As String
Dim Nom_client As String
Dim Projet As String
Set Cellule_en_cours = ActiveCell
Nom_client = InputBox("Nom du client?")
Nom_projet = InputBox("Nom du projet ou lieu?")
Projet = Nom_client + " - " + Nom_projet
MsgBox (Projet)
Columns("A:B").Select
Selection.Copy
Cellule_en_cours.Select
Selection.Insert Shift:=xlToRight
Cellule_en_cours.Select
Cellule = Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$") - 2)
Celluledecal = Cellule + "1"
Range(Celluledecal).Value = Projet
End Sub
J'aimerai pouvoir décaler d'une colonne sur la gauche l'insertion de la variable "projet".
J'aimerai également modifier ce qui a été saisie pour Nom_client et Nom_projet.
Il faudrait que je puisse mettre tout en minuscule sauf la première lettre qui serait en Majuscule.
Si vous voyez des abérations sur la programmation.Je suis preneur d'une correction...
Merci de votre aide.
Sub Insert colonne()
Dim Cellule_en_cours As Range
Dim Cellule As String
Dim Celluledecal As String
Dim Nom_projet As String
Dim Nom_client As String
Dim Projet As String
Set Cellule_en_cours = ActiveCell
Nom_client = InputBox("Nom du client?")
Nom_projet = InputBox("Nom du projet ou lieu?")
Projet = Nom_client + " - " + Nom_projet
MsgBox (Projet)
Columns("A:B").Select
Selection.Copy
Cellule_en_cours.Select
Selection.Insert Shift:=xlToRight
Cellule_en_cours.Select
Cellule = Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$") - 2)
Celluledecal = Cellule + "1"
Range(Celluledecal).Value = Projet
End Sub