Code a adapter
Salut à tous
Il n'ay pas longtemp, Banzaï64 m'avait proposé un dode pour copier une plage avec condition et le coller sur une autre feuille et sa solution était superbe. J'ai fait quelque modification sur le fichier et je n'arrive pas à adapter le code par rapport à la nouvelle donne.
Il faut dire que j'ai inséré des lignes dans mon fichier et la plage à copier a changé.
Au lieu de A30, c'est passé à A37 mais il n'ya pas d'insertion sur la feuille de destination.
Voici le message qui avait été posté:
Salut le forum
J'ai un fichier comportant 2 feuilles (voir fichier joint).
- Dans la 1ère feuille, j'ai une plage de donnée : Facture_Pro!A30:I940.
Je souhaite pouvoir sélectionner une partie de la plage. la sélection commence en A30 et doit passer par la dernière cellule non vide de de la colonne B et se termine en I.
Exemple : supposons que la dernière ligne non vide de la colonne B = 68.
La plage à sélectionner sera donc A30:I68.
- Je souhaite maintenant pouvoir coller (insérer vers le bas) la sélection à partir de la cellule Facture_Réel!A30 de la feuille.
Il faut dire que A30 est a remplacer par A37.
Comment adapter le code?
Merci
Salut Banzai64 et le forum
C'est super.
Suis très satisfait et te remercie pour ta disponibilité.
Avec ta permission et sans abuser de ta patience, je souhaiterai si possible que tu voies si le code ci-dessous pourrait être intégré (fusionné) dans le code que tu viens d'adapter pour moi:
Sub verifdonnées()
rouge = 0
For i = 37 To 947
For Each j In Array("K", "L", "N", "P", "Q")
If Cells(i, "H") > 0 Then
If Cells(i, j) = "" Then
If rouge = 0 Then si = i: sj = j
rouge = rouge + 1
End If
End If
Next j
Next i
If rouge > 0 Then
MsgBox "vous avez omis de remplir " & rouge & " cellule" & IIf(rouge > 1, "s", "")
' se positionner sur la première cellule à compléter
Cells(si, sj).Select
End If
End SubBonne compréhension
Salut Banzaï
Merci pour le code.Il fonctionne comme je le souhaite.
Que DIEU te bénisse.