XL 2016 Utilisation de Ubond(tablo)

cp4 à dit:

Bonjour Hogwarts,

Si J'ai vraiment compris ta question, il faudrait qu'il y ait des données dans les colonnes B.
Ensuite pourquoi tes boucles commencent à 3 au lieu de 1. En effet, tu boucles sur les éléments d'un array pas sur les lignes de la feuille.

VB:

Option Explicit

Dim tablo, tabloE, fs As Worksheet, fea As Worksheet
Dim i&, iE&

Sub MettreAjour()
  
    Set fs = Sheets("Statut")
    Set fea = Sheets("En attente")

    tablo = fs.Range("A1:J" & fs.Range("A" & Rows.Count).End(xlUp).Row)
  
    tabloE = fea.Range("A1").CurrentRegion

    For i = 3 To UBound(tablo, 1) '**Pourquoi i comme à 1 **
        If tablo(i, 10) = "O" Then
          
            For iE = 3 To UBound(tabloE, 1) '** Pourquoi iE comme à 1 **
                If "XXX_" & tablo(i, 1) Like tabloE(iE, 1) And tabloE(i, 10) = "F" Then
                    tablo(i, 10) = "F"
                End If
            Next iE
        End If
    Next
    Range("A1").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
  
End Sub

edit: Oups! pas vu. Bonjour Sylvanu

Cliquez pour agrandir...