Inputbox avec texte issu de concatener

Bonjour,

je suis en train de créer un macro me permettant de retirer une ligne de mon tableau selon la valeur d'une des cellules. Seulement, la cellule en question est un concatener de deux cellules voisines : =CONCATENER( [Type de materiel];" ";[N°]). J'ai placé l’instruction String mais la macro ne reconnait pas le texte dans cette cellule et passe à la cellule suivante.

Sub versEquipEvac()
Dim nom As String

nom = InputBox("Quel est le numéro interne?-Format LSE WWW NNN-")
Do While ActiveCell <> ""

If ActiveCell.Text = nom Then
ActiveCell.EntireRow.Copy
Sheets("Evacues").Select
Range("A2").EntireRow.Insert
ActiveSheet.Paste
Jour = InputBox("Quelle est la date d'évacuation de l'appareil?-Format JJ/MM/AAAA")
Range("L2") = Jour
Personne = InputBox("Qui a évacué l'appareil?")
Range("M2") = Personne
Else: ActiveCell.Offset(1, 0).Select
End If

Pourriez vous m'aider?

Davance merci

Lucas

Bonjour Luccot,

Bonjour,

Il y a plusieurs erreurs dans votre code :

- Pour la boucle do while, regardez le cours correspondant, activecell n'est pas correct. Et votre boucle doit avoir un début et une fin.

- Il n'y a pas de sheets("evacues").

- activesheet.paste seul ne suffit pas si on n'indique pas ce qu'on colle.

Il y a le cours sur les variables aussi pour éviter de tout faire en ligne 2.

Aprés on pourra voir ou se trouve votre concaténation.

Cdt

Merci pour ces remarques.

J'ai ainsi modifié la macro (que j'avais copié incomplète) et lavoici ci dessous, ainsi que dans le fichier

Sub versEquipEvac()
Dim nom As String, Jour As Date, Personne As String

Sheets("Equipements").Select
Range("H2").Select

nom = InputBox("Quel est le numéro interne de l'équipement?-Format LSE WWW NNN-")
Do While ActiveCell <> ""

If ActiveCell.Text = nom Then
ActiveCell.EntireRow.Copy
Sheets("Evacues").Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Jour = InputBox("Quelle est la date d'évacuation de l'appareil?-Format JJ/MM/AAAA")
Range("L2") = Jour
Personne = InputBox("Qui a évacué l'appareil?")
Range("M2") = Personne
MsgBox ("Equipement placé dans l'onglet Equipements Evacues")

Sheets("Equipements").Select
Selection.Delete Shift:=xlUp

Else: ActiveCell.Offset(1, 0).Select
End If
Loop

MsgBox ("Equipement placé dans l'onglet Equipements Evacues")

End Sub

Edit modo : merci de mettre le code entre balises SVP

D'avance merci

Lucas

Bonjour,

je me permets de relancer ma demande et savoir si quelqu'un aurait une solution à me proposer?
Cordialement

Bonjour, Luccot,

Après vérification, il s'avère que votre concaténation n'est pas bonne

Après le mot LSE il y a 2 espaces (invisible à l'oeil nu), voici la bonne formule

=CONCATENER("LSE "; [@[Type de materiel]];" ";[@N°])

Ou

="LSE " & [@[Type de materiel]] & " " & [@N°]

A+

Ah super, merci beaucoup! La macro fonctionne désormais!

Je ne sais pas du coup d'où viennent ces deux espaces!!

Encore merci

Re