Astuces Excel
  1. Astuces Excel
  3. Comment boucler les cellules
Intereting Posts
Comment puis-je cacher les fonctions d'ajout Excel protégées de l'apparence dans la boîte de dialog Insérer une fonction? Copier un jeu d'loggings Excel existant sur la table Access Comment éviter le "Fichier utilisé" Pop-up dans Excel Une paire de signes less (= – -) au début d'une formule lire datatables du file excel dans ionic2 TypeError: l'object 'set' ne supporte pas l'indexing dans excel Comment puis-je tracer deux séries temporelles dans Excel en utilisant différentes dates de début et de fin? Définir l'imprimante active dans la fonction OLE PrintOut Gamme de cellules en cellule unique avec return de chariot Feuille de calcul dynamic? Date et heure Changez 24 heures avec VBA Excel Excel VBA – Comment arrêter le formatting automatique des nombres scientifiques à flotter dans l'éditeur VBA Comment convertir datatables dans les formulaires excel spreasheet en format pour le téléchargement dans une database Essayer d'append des valeurs mais avoir plusieurs inputs Mise à niveau de .xls vers .xlsx avec POI

Comment boucler les cellules

Comment puis-je mettre à jour ce code VBA afin qu'il puisse s'agir d'une boucle qui vérifie toutes mes colonnes, allant de G4 à G1000 et affiche un msgbox pour chacune et non seulement pour G4? 

Private Sub Workbook_Open() Dim c1 As Range Set c1 = ThisWorkbook.Sheets("Sheet1").Range("G4") If IsDate(c1) Then If Now >= c1 + 60 Then MsgBox "The Date in Sheet 1 Cell B4 has been reached or passed." End If End If End Sub

L'utilisation de r.offset (0, -5) se référera à la colonne B 

 Private Sub Workbook_Open() Dim c1 As Range, r As Range Set c1 = ThisWorkbook.Sheets("Sheet1").Range("G4:G100") For Each r In c1 If IsDate(r.Value) Then If Now >= r.Value + 60 Then MsgBox "warning cell " & r.Address(0, 0) & " is expired: Value: " & r.offset(0,-5) 'r.offset(0,-5) will return the content on col End If End If Next r End Sub

J'espère que cela t'aides.

Peut-être: 

 Private Sub Workbook_Open() Dim c1 As Range, r As Range Set c1 = ThisWorkbook.Sheets("Sheet1").Range("G4:G100") For Each r In c1 If IsDate(r.Value) Then If Now >= r.Value + 60 Then MsgBox "warning cell " & r.Address(0, 0) & " is expired" End If End If Next r End Sub

Je crois que vous pourriez utiliser ceci: https://msdn.microsoft.com/en-us/library/office/aa221353%28v=office.11%29.aspx 

 For Each c1 In Worksheets("Sheet1").Range("G4:G1000").Cells ' copy paste your code here Next