Code Visual Basic [Résolu]

Code

'Si la cellule A1 ou B1 n'est pas vide alors on affecte la valeur de la cellule dans la textbox
If Not Worksheets("Compte-Rendu").Range("A1").Value = "" Or Worksheets("Compte-Rendu").Range("B1").Value = "" Then
'Affectation de la valeur contenant dans la cellule A1/B1
txtDebut.Value = Sheets("Compte-Rendu").Range("A1").Value
txtFin.Value = Sheets("Compte-Rendu").Range("B1").Value
Else
'Affectation de valeur par défaut pour la plage
txtDebut.Value = "A3"
txtFin.Value = "E3"
End If

Code

i = 0
cpt = 0

For i = 3 To Range("F65536").End(xlUp).Row
If Cells(i, 6).Value = "" Then
Exit For
End If
Next i

Code

private i as integer

Code

'Si le champ de recherche a été changé alors l'appuie sur le bouton OK met à jour les cellules contenant les valeurs à parcourir
If rc = True Then
Sheets("Compte-Rendu").Range("A1").Value = txtDebut.Value
Sheets("Compte-Rendu").Range("B1").Value = txtFin.Value
End If

Code

strPlage = Sheets("Compte-Rendu").Range("A1").Value & ":" & Sheets("Compte-Rendu").Range("B1").Value

Code

strPlage = "A3:"&"F"&i