Bonjour le forum,
J'aimerai avoir un coup de main pour configurer un "inputbox" (je pense).
R: mais connaissances sur la famille des "n" box sont limités (si il existe un tuto qui résume l'utilisation des divers "box", je suis preneur).
Dans une macro, je voudrais remplacer une valeur par une variable, laquelle serait modifiable via un "inputbox" (la valeur variant de 1 à 30)
Merci d'avance,
PS: Mon dernier post n'avait pas fait fureur ,pourtant j'essaie de respecter la charte, donc si il manque qql chose ne pas hésiter a me le faire savoir.
Je préfère me prendre une remarque, que de rester invisible.
J'aimerai avoir un coup de main pour configurer un "inputbox" (je pense).
R: mais connaissances sur la famille des "n" box sont limités (si il existe un tuto qui résume l'utilisation des divers "box", je suis preneur).
Dans une macro, je voudrais remplacer une valeur par une variable, laquelle serait modifiable via un "inputbox" (la valeur variant de 1 à 30)
Code:
Sub Gr_CP()
'extraire 1 groupe de CP
Sheets("Plan").Unprotect "toto"
Dim plage As Range, c As Range, cSource As Range
Set plage = Feuil1.Range("B1:O55") 'zones selection pour transfert macro
Application.ScreenUpdating = False
[COLOR="Red"]'GrCp = InputBox("Entrez le groupe de CP")'[/COLOR]For Each c In plage
If Not IsEmpty(c) Then 'And Not c.Locked
Set cSource = Sheets("BD").UsedRange.Find(what:=c, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not cSource Is Nothing Then
If cSource.Offset(0, 4).Value[COLOR="red"] '= GrCp' [/COLOR]Then
c.Copy Destination:=Sheets("Plan N").Range("U" & _
Application.Rows.Count).End(xlUp)(2)
c.Clear 'Nettoie la cellule, contenu et format.
c.Locked = False
End If
End If
End If
Next c
'plage.Locked = False
Application.ScreenUpdating = True
Sheets("Plan N").Protect "toto", AllowFormattingCells:=True
End Sub
Merci d'avance,
PS: Mon dernier post n'avait pas fait fureur ,pourtant j'essaie de respecter la charte, donc si il manque qql chose ne pas hésiter a me le faire savoir.
Je préfère me prendre une remarque, que de rester invisible.