Help sur code

Question

Bonjour tout le monde

voici mon code :

Sub commande()
Dim Str As String, commande As Worksheet
je defini le terme "commande" comma feuille de travail
        Str = ActiveSheet.Range("B65536").End(xlUp).Value
Cest sur cette ligne que ca plante, je veu définir la dernière ligne pleine de la colonne B de la feuille active comme =Str
        Select Case Str
        Case ""
            Exit Sub
        Case "F001"
            Set commande = Sheets("F001")
        Case "F045"
            Set commande = Sheets("F045")
        End Select
        Ci dessus j'affecte une feuille ("F001" ou "F045") à "commande"
Dim ProchaineLigneVide As Integer
With commande
    ProchaineLigneVide = .Range("A65536").End(xlUp).Row + 1
    .Range("A" & ProchaineLigneVide).Value = ActiveSheet.Range("A2").Value
    .Range("B" & ProchaineLigneVide).Value = ActiveSheet.Range("C2").Value
    .Range("C" & ProchaineLigneVide).Value = ActiveSheet.Range("E2").Value
    .Range("D" & ProchaineLigneVide).Value = ActiveSheet.Range("F65536").End(xlUp).Value
    .Range("C6").Value = ActiveSheet.Range("D65536").End(xlUp).Value
    .Range("C5").Value = ActiveSheet.Range("B65536").End(xlUp).Value
Là cest une partie ou ca effectue des copies mais cette partie fonctionne
End With
End Sub

pourriez vous me dire pourquoi la 3ème ligne plante.
Je pense que cest du à l'utilisation de Str et .Range("B65536").End(xlUp)car quand je met une valeur fixe (B12 par exemple) ca fonctionne mais je veu qu'il compare la dernière ligne pleine.

Merci de votre aide
Jacky

Jacky1002 · Answer

au fait le message d'erreur VBA :

erreur d'exécution 13
Imcompatibilité de type

Jacky1002 · Answer

je sai pas si ca peut aider mais la colonne B dont je veu utiliser la dernière ligne pleine contient des cellules menu déroulant serait ce là le pb ???
Si oui y a-t-il ,une solution???

merci 
Jacky

Jacky1002 · Answer

J'ai trouver le pb 

en fait sur une page j'ai :

en colonne A la date ( saisie )
en colonne B : =RECHERCHEV($C4;fourn!A:D;4) (valeur provenant de la feuille "fourn" colonne 4 de la matrice A:D la ligne dépendant de la valeur en C4)
en colonne C : des menu déroulant qui me renvoie à la feuille "fourn"
la colonne D : =RECHERCHEV($C4;fourn!A:D;3)(valeur provenant de la feuille "fourn" colonne 3 de la matrice A:D la ligne dépendant de la valeur en C4)
la colonne E : =RECHERCHEV($C4;fourn!A:D;2)(valeur provenant de la feuille "fourn" colonne 2 de la matrice A:D la ligne dépendant de la valeur en C4)

les ligne seront remplies au fur et a mesure par la suite mais pour le moment excel considère que ma dernière ligne pleine est une valeur érronée du coup il plante car le résultat est pour l'instant : #N/A

comment faire pour désigner la dernière ligne contenant une valeur "valide"

merci de vos réponses 
Jacky

Help sur code

3 réponses

Votre réponse

Discussions similaires