Se rendre sur une cellule contenant un text VBA

[OOLIVE]

Bonjour à tous,

Je viens à vous afin de savoir si l'un d'entre vous pourrait m'aider concernant du VBA

En effet, je cherche à faire un code qui me permettrait de me rendre sur la cellule à côté d'une contenant les mots "Solde Fin Mois".

Par exemple, si cette chaine de mot se trouve dans la cellule B219, j'aimerais activer la cellule C219 afin de faire une somme des chiffres allant de C8 à C218.


Le problème est que, chaque mois, je ne sais pas où cette cellule "Solde Fin Mois" va se trouver (B19 ? B600? B45?)...

Merci à tous pour votre aide 🙂

 

[vgendron]

Re : Se rendre sur une cellule contenant un text VBA

Salut

à tester ce code

Sub OuEsTu()
With ActiveSheet.Range("1:15000")

Set c = .Find("Solde Fin Mois")
If Not c Is Nothing Then
    c.Offset(0, 1).Select
End If
End With

End Sub

PS: si tu a déjà une idée de la range dans laquelle tu vas trouver l'info, tu peux limiter la zone de recherche..
range ("1:15000")
ici, j'ai mis les 150000 premières lignes de la feuille

 

[OOLIVE]

Re : Se rendre sur une cellule contenant un text VBA

Merci beaucoup 🙂

C'est parfait...

J'en profite du coup.. peut-être que tu pourrais me donner un coup de pouce pour un autre point..

Je fais appel à un userform afin de prendre d'entre des valeurs via les textform. Voici mon code:
Private Sub CommandButton1_Click()


Sheets("Rappro1").Range("A4") = Me.TextBox1
Sheets("Rappro1").Range("B8") = Me.TextBox1

If Me.TextBox2 < 0 Then
Sheets("Rappro1").Range("C8") = Abs(Me.TextBox2)
Else
Sheets("Rappro1").Range("D8") = Me.TextBox2
End If


If Me.TextBox3 < 0 Then
Sheets("Rappro1").Range("D8") = Me.TextBox2
Else
Sheets("Rappro1").Range("C8") = Me.TextBox2

End If


Unload Me
End Sub


Grossomodo, pour le TextBox2, si la valeur est négative, je la voudrais en colonne C mais pour sa valeur absolu (sans le moins dans la cellule).

Sais-tu si cela est possible ?

Merci beaucoup 🙂

 

[vgendron]

Re : Se rendre sur une cellule contenant un text VBA

a priori ton code tel qu'écrit devrait fonctionner.. comme je n'ai pas ton formulaire, je peux juste estimer
pour avoir la valeur absolue, il faut bien utiliser "Abs"
si je comprend bien également, tu copies la valeur tu TxtBox1 en A4 et B8
si le TxtBox2 est négatif, tu recopies la valeur absolue en C8 sinon (valeur positive), tu la mets en D8
si le TxtBox3 est négatif, tu recopies la valeur du txtbox2 (et pas 3) en D8 sinon (valeur positive) en C8

ton problème (si tu en as un autre que savoir quelle fonction utiliser), c'est quoi?

 

[OOLIVE]

Re : Se rendre sur une cellule contenant un text VBA

Au moins, je suis rassuré d'accord "réussi mon code".

Le hic est que lorsque ma valeur est négative, la macro va me recopier la valeur négative dans la cellule C8. Comme si elle oubliait le ABS

 

[vgendron]

Re : Se rendre sur une cellule contenant un text VBA

j'ai du mal à saisir.
je viens de me faire un formulaire avec 3 textbox pour tester ton code
peux tu me donner les 3 valeurs que tu utilises pour ton exemple?

 

[vgendron]

Re : Se rendre sur une cellule contenant un text VBA

Je viens peut etre de comprendre ton problème..
si tu mets une valeur négative en TextBox3, il te la recopie telle quelle en C8..... normal.. dans ton code. tu as "oublié" le Abs..

Private Sub CommandButton1_Click()
Sheets("Rappro1").Range("A4") = Me.TextBox1
Sheets("Rappro1").Range("B8") = Me.TextBox1

If Me.TextBox2 < 0 Then
    Sheets("Rappro1").Range("C8") = Abs(Me.TextBox2)
Else
    Sheets("Rappro1").Range("D8") = Me.TextBox2
End If

If Me.TextBox3 < 0 Then
    Sheets("Rappro1").Range("D8") = Abs(Me.TextBox3)
Else
    Sheets("Rappro1").Range("C8") = Me.TextBox3
End If

Unload Me
End Sub

 

[OOLIVE]

Re : Se rendre sur une cellule contenant un text VBA

C'est exactement ça.. En fait, j'ai voulu essayer mon code avant de le finir et au final, il y avait un soucis entre le TEXTBOX2 & TeXTbox3.


Merci beaucoup pour ton aide. 🙂

Olivier.