VBA

Résolu

eglantine217 Messages postés 54 Date d'inscription Statut Membre Dernière intervention -
eglantine217 Messages postés 54 Date d'inscription Statut Membre Dernière intervention - 22 juin 2012 à 14:08

Bonjour,

Mon objectif est de transférer les données de la colonne B à D de la feuille origine vers la feuille de destination le problème c'est que entre certaines lignes il y a des vides et le vba croit que c'est la dernière ligne alors que non et je ne sais que faire ?

Sub transfert() 


Const NomFO = "feuille1" 
Const NomFD = "test" 

Const CellD = "B5" 

Dim lifin As Long 

lifin = Range("B" & Rows.Count).End(xlUp).Row 

Sheets(NomFO).Range("B4:D" & lifin).Copy Sheets(NomFD).Range(CellD) 


End Sub

merci d'avance

Afficher la suite

A voir également:

VBA
Excel compter cellule couleur sans vba - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA
Dépassement de capacité vba ✓ - Forum Excel

7 réponses

Réponse 1 / 7

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Bonjour,

Peut être effectivement que votre colonne B n'est pas la plus "longue"...
Pour éviter cela, vous pouvez trouver la dernière ligne absolue non vide dans la feuille.
Attention toutefois, si des lignes sont supprimées dans la plage, enregistrez préalablement le fichier pour que la procédure renvoie la réelle dernière ligne
Code à utiliser :

Dim lifin As Long
ActiveWorkBook.Save 'pour contourner le problème de suppression de ligne
lifin = Range("A1").SpecialCells(xlCellTypeLastCell).Row

Tout, tout, tout vous saurez tout sur ... la dernière ligne!

eglantine217 Messages postés 54 Date d'inscription Statut Membre Dernière intervention

merci ça fonctionne le seul problème c'est que ça ne copie pas tout d'un seul coup, je suis obligé de cliquer sur mon bouton vba pour que le copier coller se fasse jusqu'à la fin
Que faire

Sub transfert()


Const NomFO = "feuille1"
Const NomFD = "test"

Const CellD = "B5"

Dim lifin As Long

ActiveWorkbook.Save

lifin = Range("A1").SpecialCells(xlCellTypeLastCell).Row


Sheets(NomFO).Range("B4:D" & lifin).Copy Sheets(NomFD).Range(CellD)


End Sub

Réponse 2 / 7

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Je n'ai pas compris :
c'est que ça ne copie pas tout d'un seul coup, je suis obligé de cliquer sur mon bouton vba pour que le copier coller se fasse jusqu'à la fin
Merci de bien détailler ce que vous souhaitez faire et le(s) problème(s) que vous rencontrez...

eglantine217 Messages postés 54 Date d'inscription Statut Membre Dernière intervention

j'aurai aimé que lorsque j'exécute le code que l'ensemble des colonnes B4 à D (jusqu'à la dernière ligne) soit copié dans mon nouvel onglet nommé test

eglantine217 Messages postés 54 Date d'inscription Statut Membre Dernière intervention

en exécutant le code vba ça copie une ligne puis je dois re exécute et ça copie une ligne etc ... je ne trouve pas l'erreur car moi je veux que le copier coller soit direct

Réponse 3 / 7

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

le code communiqué ci dessus doit faire ce que tu souhaites.
C'est dans l'exécution que cela pose souci.
Qu'entends tu par : je suis obligé de cliquer sur mon bouton vba

Réponse 4 / 7

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Peux tu nous transférer ton fichier sans données confidentielles?
Pour cela utilises https://www.cjoint.com/ et reviebns ici coller le lien fournit dans une réponse...

eglantine217 Messages postés 54 Date d'inscription Statut Membre Dernière intervention

maintenant ça marche ... je ne sais pas comment mon problème s'est résolu mais j'ai un autre bug je veux que le copier coller s'effectue uniquement lorsque dans la colonne E la valeur = "X"

Sub copiercoller()



Const NomFO = "Feuil1"
Const NomFD = "test"

Const CellD = "B5"

Dim lifin As Long

ActiveWorkbook.Save



For i = 1 To 84

lifin = Range("A1").SpecialCells(xlCellTypeLastCell).Row



If Sheets(NomFO).Range("E" & i, "E" & i) = "X" Then

Sheets(NomFO).Range("B4:D" & lifin).Copy Sheets(NomFD).Range(CellD)


ElseIf Sheets(NomFO).Range("E" & i) <> "X" Then


End If

Next i


End Sub

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Donc, une fois ton problème de "tout copier" résolu, tu nous demandes de résoudre un souci de copier/coller ligne par ligne......................................

Essaye ceci :

Sub copiercoller()
Const NomFO = "Feuil1"
Const NomFD = "test"
Dim lifin As Long, i As Long, j As Long

j = 5 'pour commencer à la cellule B5
ActiveWorkbook.Save
lifin = Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = 1 To lifin
    If UCase(Sheets(NomFO).Range("E" & i)) = "X" Then
        Sheets(NomFO).Range("B" & i & ":D" & i).Copy Sheets(NomFD).Range("B" & j)
        j = j + 1
    ElseIf Sheets(NomFO).Range("E" & i) <> "X" Then
        'ben ici je ne fais rien. Ok?
    End If
Next i
End Sub

eglantine217 Messages postés 54 Date d'inscription Statut Membre Dernière intervention

Mon code ne tient pas compte de la valeur de la colonne E
Si dans la colonne E on a "X" alors ça doit être copier vers mon fichier test
le problème c'est que ça copie et ça colle tout sans prendre en compte la valeur de cette colonne E

Sub transfert()


Const NomFO = "Feuil1"
Const NomFD = "test"

Const CellD = "B5"

Dim lifin As Long

ActiveWorkbook.Save

For i = 1 To 84

lifin = Range("A1").SpecialCells(xlCellTypeLastCell).Row


If Sheets(NomFO).Range("E" & i, "E" & i) = "X" Then

Sheets(NomFO).Range("B4:E" & lifin).Copy Sheets(NomFD).Range(CellD)

ElseIf Sheets(NomFO).Range("E" & i) <> "X" Then

End If

Next i

End Sub

je nage un peu en eau trouble je ne trouve pas mon erreur

eglantine217 Messages postés 54 Date d'inscription Statut Membre Dernière intervention

j'ai essayé avec votre code mais rien ne se passe

Réponse 6 / 7

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

dernière tentative, après il FAUDRA le fichier...

Sub copiercoller()
Dim lifin As Long, i As Long, j As Long

j = 5 'pour commencer à la cellule B5
ActiveWorkbook.Save
lifin = Sheets("Feuil1").Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = 1 To lifin
    If Sheets("Feuil1").Range("E" & i).Value = "X" Then
        Sheets("Feuil1").Range("B" & i & ":D" & i).Copy Sheets("test").Range("B" & j)
        j = j + 1
    End If
Next i
End Sub

eglantine217 Messages postés 54 Date d'inscription Statut Membre Dernière intervention

c'est ça ça marche !!!! mille merci !!!!! merci merci merci !!!!!

Réponse 7 / 7

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Bonjour,
j'ai essayé avec votre code mais rien ne se passe
Dans mon code, la ligne de test est :

If UCase(Sheets(NomFO).Range("E" & i)) = "X" Then

Traduit en "pseudo français" :
Si la mise en majuscule de la cellule E ligne i est égale à X majuscule alors...

S'il ne se passe rien, peut être que la cellule E ligne i n'est pas égale à "X"....

Envoie moi un exemple de ton fichier sans données confidentielles, en passant par cjoint.com

eglantine217 Messages postés 54 Date d'inscription Statut Membre Dernière intervention

si la valeur dans la colonne E est égal à "X" (X étant un exemple ; j'aurai pu mettre si la valeur dans la colonne E est égal à "toto" alors le copie coller vers la feuille test s'effectue sinon on passe à la ligne suivante)

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires