Microsoft 365 Range.cells dépasse la plage de donnée définiee

M

MarcMad

XLDnaute Nouveau
Bonjour,

J'ai définie une plage de donné "Plage_Compos" (qui peut varier) qui ne contient que 2 lignes (dans mon exemple) mais quand j'utilise ce code :

Compos_3 = .Range("Plage_Compos").Cells(3, 1) 'Compos_3

Il me renvoie à la 3e ligne qui n'est plus dans ma plage définie.

Que faire pour que cela ne se produise pas et que ''Compos_3" ne soit pas définie

Merci
 
Trier par date Trier par votes
M

MarcMad

XLDnaute Nouveau
Oui effectivement c'est sur le même programme mais pas sur la même fonction.

Je vous explique le processus derrière tout ca.
J'importe un fichier PDF dans la feuille "Cost list".
Ensuite je veux remplir toutes les case de la feuille "Estimation Rapide" selon les données de la feuille "Cost List"

Le problème c'est que je peut avoir de 1 à 10 composition différente (Code de produit)
Ainsi je me suit créé un range variable "Plage_Compos" que j'ai défini selon des mots (Walls et Detailed by components) qui se retrouve sur mon importation de PDF "Cost list".

Par contre, si l'importation ne contient que 2 code produits je ne veut pas que l'on définisse "Compos_3 à 10"

Voici le code complet (ou j'en suis rendu) et la feuil Cost List

Si vous pouvez aussi m'indiqué mes erreurs ou des simplifications cela serait apprécié.

MERCI !

Sub Autofill()

Dim Compos_1 As String
Dim Compos_2 As String
Dim Compos_3 As String
Dim Compos_4 As String
Dim Compos_5 As String
Dim Compos_6 As String
Dim Compos_7 As String
Dim Compos_8 As String
Dim Compos_9 As String
Dim Compos_10 As String

Dim Début_Ligne As Long
Dim Début_Colonne As Long
Dim Fin_Ligne As Long
Dim Fin_Colonne As Long

Dim Plage_Compos As Range


With Worksheets("Cost list").Range("A1:G500")

.Find("Project").Offset(0, 1).Copy _
Destination:=Worksheets("Estimation Rapide").Range("T3:X3") 'Nom du projet

.Find("Client").Offset(0, 1).Copy _
Destination:=Worksheets("Estimation Rapide").Range("F3:Q3") ' Nom du client

'----------------------------------Range_des_Compos---------------------------------------

Début_Ligne = .Find("Walls").Offset(1, 0).Row
Début_Colonne = .Find("Walls").Offset(1, 0).Column

Fin_Ligne = .Find("Detailed by components").Offset(-1, 6).Row
Fin_Colonne = .Find("Detailed by components").Offset(-1, 6).Column

Set Plage_Compos = .Range(Cells(Début_Ligne, Début_Colonne), Cells(Fin_Ligne, Fin_Colonne))

End With

'----------------------------------Compos_1---------------------------------------

With Worksheets("Cost list")

Compos_1 = .Range("Plage_Compos").Cells(1, 1) 'Compos_1


Worksheets("Estimation rapide").Range("C6") = Mid(Compos_1, 1, 1)
Worksheets("Estimation rapide").Range("D6") = Mid(Compos_1, 2, 1)
Worksheets("Estimation rapide").Range("E6") = Mid(Compos_1, 3, 1)
Worksheets("Estimation rapide").Range("F6") = Mid(Compos_1, 4, 1)
Worksheets("Estimation rapide").Range("G6") = Mid(Compos_1, 5, 1)
Worksheets("Estimation rapide").Range("H6") = Mid(Compos_1, 6, 1)
Worksheets("Estimation rapide").Range("I6") = Mid(Compos_1, 7, 1)
Worksheets("Estimation rapide").Range("J6") = Mid(Compos_1, 8, 1)
Worksheets("Estimation rapide").Range("K6") = Mid(Compos_1, 9, 1)
Worksheets("Estimation rapide").Range("L6") = Mid(Compos_1, 10, 1)
Worksheets("Estimation rapide").Range("M6") = Mid(Compos_1, 11, 1)
Worksheets("Estimation rapide").Range("N6") = Mid(Compos_1, 12, 1)
Worksheets("Estimation rapide").Range("O6") = Mid(Compos_1, 13, 1)

.Range("Plage_Compos").Cells(1, 3).Copy _
Destination:=Worksheets("Estimation Rapide").Range("Q6:Q7") 'Pi lin de la Compos 1

.Range("Plage_Compos").Cells(1, 7).Copy _
Destination:=Worksheets("Estimation Rapide").Range("Z6:Z7") 'Cost de la Compos 1

.Range("Plage_Compos").Cells(1, 6).Copy _
Destination:=Worksheets("Estimation Rapide").Range("AA6:AA7") '$/pi2 de la Compos 1

'----------------------------------Compos_2---------------------------------------

Compos_2 = .Range("Plage_Compos").Cells(2, 1) 'Compos_2

Worksheets("Estimation rapide").Range("C8") = Mid(Compos_2, 1, 1)
Worksheets("Estimation rapide").Range("D8") = Mid(Compos_2, 2, 1)
Worksheets("Estimation rapide").Range("E8") = Mid(Compos_2, 3, 1)
Worksheets("Estimation rapide").Range("F8") = Mid(Compos_2, 4, 1)
Worksheets("Estimation rapide").Range("G8") = Mid(Compos_2, 5, 1)
Worksheets("Estimation rapide").Range("H8") = Mid(Compos_2, 6, 1)
Worksheets("Estimation rapide").Range("I8") = Mid(Compos_2, 7, 1)
Worksheets("Estimation rapide").Range("J8") = Mid(Compos_2, 8, 1)
Worksheets("Estimation rapide").Range("K8") = Mid(Compos_2, 9, 1)
Worksheets("Estimation rapide").Range("L8") = Mid(Compos_2, 10, 1)
Worksheets("Estimation rapide").Range("M8") = Mid(Compos_2, 11, 1)
Worksheets("Estimation rapide").Range("N8") = Mid(Compos_2, 12, 1)
Worksheets("Estimation rapide").Range("O8") = Mid(Compos_2, 13, 1)

.Range("Plage_Compos").Cells(2, 3).Copy _
Destination:=Worksheets("Estimation Rapide").Range("Q8:Q9") 'Pi lin de la Compos 2

.Range("Plage_Compos").Cells(2, 7).Copy _
Destination:=Worksheets("Estimation Rapide").Range("Z8:Z9") 'Cost de la Compos 2

.Range("Plage_Compos").Cells(2, 6).Copy _
Destination:=Worksheets("Estimation Rapide").Range("AA8:AA9") '$/pi2 de la Compos 2

'----------------------------------Compos_3---------------------------------------

Compos_3 = .Range("Plage_Compos").Cells(3, 1) 'Compos_3

Worksheets("Estimation rapide").Range("C10") = Mid(Compos_3, 1, 1)
Worksheets("Estimation rapide").Range("D10") = Mid(Compos_3, 2, 1)
Worksheets("Estimation rapide").Range("E10") = Mid(Compos_3, 3, 1)
Worksheets("Estimation rapide").Range("F10") = Mid(Compos_3, 4, 1)
Worksheets("Estimation rapide").Range("G10") = Mid(Compos_3, 5, 1)
Worksheets("Estimation rapide").Range("H10") = Mid(Compos_3, 6, 1)
Worksheets("Estimation rapide").Range("I10") = Mid(Compos_3, 7, 1)
Worksheets("Estimation rapide").Range("J10") = Mid(Compos_3, 8, 1)
Worksheets("Estimation rapide").Range("K10") = Mid(Compos_3, 9, 1)
Worksheets("Estimation rapide").Range("L10") = Mid(Compos_3, 10, 1)
Worksheets("Estimation rapide").Range("M10") = Mid(Compos_3, 11, 1)
Worksheets("Estimation rapide").Range("N10") = Mid(Compos_3, 12, 1)
Worksheets("Estimation rapide").Range("O10") = Mid(Compos_3, 13, 1)

.Range("Plage_Compos").Cells(3, 3).Copy _
Destination:=Worksheets("Estimation Rapide").Range("Q10:Q10") 'Pi lin de la Compos 3

.Range("Plage_Compos").Cells(3, 7).Copy _
Destination:=Worksheets("Estimation Rapide").Range("Z10:Z10") 'Cost de la Compos 3

.Range("Plage_Compos").Cells(3, 6).Copy _
Destination:=Worksheets("Estimation Rapide").Range("AA10:AA10") '$/pi2 de la Compos 3

'----------------------------------Compos_4---------------------------------------

'----------------------------------Compos_5---------------------------------------

'----------------------------------Compos_6---------------------------------------

'----------------------------------Compos_7---------------------------------------

'----------------------------------Compos_8---------------------------------------

'----------------------------------Compos_9---------------------------------------

'----------------------------------Compos_10---------------------------------------

.Find(After:=.Range(.Find("Studs").Address), What:="SubTotal", SearchOrder:=xlByRows).Offset(0, 1).Copy 'Coût Studs
Worksheets("Estimation Rapide").Range("Q26").PasteSpecial xlPasteValues

.Find(After:=.Range(.Find("Headers").Address), What:="Subtotal", SearchOrder:=xlByRows).Offset(0, 1).Copy 'Coût Headers
Worksheets("Estimation Rapide").Range("Q27").PasteSpecial xlPasteValues

.Find(After:=.Range(.Find("Posts").Address), What:="Subtotal", SearchOrder:=xlByRows).Offset(0, 1).Copy 'Coût Posts
Worksheets("Estimation Rapide").Range("Q28").PasteSpecial xlPasteValues

.Find(After:=.Range(.Find("Sheathing").Address), What:="Subtotal", SearchOrder:=xlByRows).Offset(0, 1).Copy 'Coût Seathing
Worksheets("Estimation Rapide").Range("Q29").PasteSpecial xlPasteValues

.Find(After:=.Range(.Find("Insulation").Address), What:="R-20", SearchOrder:=xlByRows).Offset(0, 6).Copy 'Coût Laine (A Modifier pour R-28)
Worksheets("Estimation Rapide").Range("Q30").PasteSpecial xlPasteValues

.Find(After:=.Range(.Find("Insulation").Address), What:="Isoclad", SearchOrder:=xlByRows).Offset(0, 6).Copy 'Coût Isoclad (A Modifier si plusieur Isoclad différent)
Worksheets("Estimation Rapide").Range("Q32").PasteSpecial xlPasteValues

.Find(After:=.Range(.Find("Insulation").Address), What:="Iso R", SearchOrder:=xlByRows).Offset(0, 6).Copy 'Coût IsoRplus (A Modifier si plusieur IsoRplus différent)
Worksheets("Estimation Rapide").Range("Q32").PasteSpecial xlPasteValues

.Find(After:=.Range(.Find("Strapping").Address), What:="Subtotal", SearchOrder:=xlByRows).Offset(0, 1).Copy 'Coût Strapping
Worksheets("Estimation Rapide").Range("Q34").PasteSpecial xlPasteValues

.Find("Sill Foam").Offset(0, 6).Copy
Worksheets("Estimation Rapide").Range("Q35").PasteSpecial xlPasteValues 'Coût Sill Foam

.Find("Fasteners").Offset(0, 6).Copy
Worksheets("Estimation Rapide").Range("Q36").PasteSpecial xlPasteValues 'Coût Fasteners

.Find("Sealant").Offset(0, 6).Copy
Worksheets("Estimation Rapide").Range("Q37").PasteSpecial xlPasteValues 'Coût Sealant


End With
End Sub
 

Pièces jointes

  • Feuil Cost list.xlsx
    9.7 KB · Affichages: 9
Vote positif 0 Vote négatif

Discussions similaires

S
  • Question
Microsoft 365 Utilisation de SOMME.SI.ENS avec critères potentiellement à ne pas prendre en compte
Réponses
1
Affichages
118
job75
job75
M
  • Question
XL 2019 Mise en Forme Conditionnelle d'une plage si une cellule contient un mot défini
Réponses
4
Affichages
138
mapomme
mapomme
S
  • Résolu(e)
Microsoft 365 Copie de plage à plage avec incrémentation
Réponses
4
Affichages
114
Simon 1234
S
A
  • Résolu(e)
XL 2016 Plage de données fixes pour calcul dans formule
Réponses
3
Affichages
95
sylvanu
sylvanu
M
  • Résolu(e)
XL 2016 VBA-couper/coller une plage filtrée
Réponses
7
Affichages
192
matamata
M
R
  • Question
Microsoft 365 Post à supprimer (Fonction Filtre sur plage dejà filtrée)
Réponses
1
Affichages
254
raf26
R
klin89
  • Résolu(e)
Microsoft 365 formule qui ne devrait pas me renvoyer une plage
Réponses
6
Affichages
281
klin89
klin89
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
294
Laliepomm
L
M
  • Résolu(e)
Microsoft 365 Gestion numéros de pages du classeur dans une cellule
2
Réponses
16
Affichages
513
sousou
sousou
sylvanu
  • Question
Autres Ambiguïté entre NB.SI et EQUIV
Réponses
13
Affichages
460
herve62
herve62

Membres actuellement en ligne

14 membres et 118 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 112
Messages
2 085 411
Membres
102 885
dernier inscrit
AISSOU