Probleme affectation de variable depuis une cellule

Bonjour,

J'ai de nouveau un petit problème, voila je souhaite affecter à une variable la valeur présente dans une cellule, seulement....ça ne fonctionne pas

voila monde code:

Sub copiecollemodif()
Dim z As Integer
liste.Cells(10, 2).Value = z
'protection "OFF"
BDD.Unprotect Password:="1234"
archive.Unprotect Password:="1234"

'Archivage de l'équipement sur la feuille "archive"
modifi.Select
    Range("A7:EB7").Copy
        archive.Visible = True
        archive.Select
            Range("A8").Select
                Selection.EntireRow.Insert
                    Selection.PasteSpecial Paste:=xlPasteValues
        archive.Visible = False

 'équipement modifié à la base de données
 modifi.Select
    Range("A7:EB7").Copy
        BDD.Select
            [color=#FF0000]Cells(z, 1).Select[/color]
                Selection.EntireRow.Insert
                    Selection.PasteSpecial Paste:=xlPasteValues

ajout.Select

    Range("A7:EE7").ClearContents

'protection "ON"
BDD.Protect Password:="1234"
archive.Protect Password:="1234"
End Sub

Le débogage m'indique que c'est cette ligne qui pose problème:

Cells(z, 1).Select

si quelqu'un a une idee, ça serait super chouette

Cordialement

max!

Bonjour,

Il me semble au départ de ta macro que tu déclares

Cells(10, 2).Value = z

et ta ligne qui pose problème

Cells(z, 1)

Là, çà coince

BONJOUR

Cells(z, 1).Select

z peut etre egal a 0 ou est nul ou encore pas une valeur numerique

pour savoir :

msgbox z

 Range("A7:EB7").Copy
        BDD.Select
msgbox z '###########################################################
            <span style="color: #FF0000">Cells(z, 1).Select</span>
                Selection.EntireRow.Insert
                    Selection.PasteSpecial Paste:=xlPasteValues

re,

J'ai utilisé un espion et la valeur de z reste à 0